ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
pm_fftnr::getFFTI Interface Reference

Generate and return the Inverse (normalized by 2 / size(data)) Fourier Transform of a periodic sequence of type complex or real of arbitrary kind parameter. More...

Detailed Description

Generate and return the Inverse (normalized by 2 / size(data)) Fourier Transform of a periodic sequence of type complex or real of arbitrary kind parameter.

See the documentation of pm_fftnr for more details.

Parameters
[in]data: The input contiguous vector of arbitrary size of,
  1. type complex of kind any supported by the processor (e.g., CK, CK32, CK64, or CK128),
  2. type real of kind any supported by the processor (e.g., RK, RK32, RK64, or RK128),
containing the periodic sequence whose FFT is to be computed.
Returns
fft : The output vector of size getExpNext(size(data), 2) of the same type and kind as the input data, containing the FFT result.


Possible calling interfaces

use pm_fftnr, only: getFFTI
type_of(data) :: fft(1 : getExpNext(size(data)))
fft(:) = getFFTI(data(:))
Generate and return the Inverse (normalized by 2 / size(data)) Fourier Transform of a periodic sequen...
Definition: pm_fftnr.F90:428
This module contains procedures and generic interfaces for computing the Discrete Fourier Transform o...
Definition: pm_fftnr.F90:184
Remarks
The procedures under discussion are impure.
Note
This functional generic interface is simply a more flexible but slower wrapper around the subroutine generic interface setFFTR.
As such, this functional interface can be significantly slower than the corresponding subroutine interface.
See also
getFFTF
getFFTR
getFFTI
setFFTF
setFFTR
setFFTI


Example usage

1program example
2
3 use pm_kind, only: SK, IK, LK
4 use pm_io, only: display_type
5 use pm_fftnr, only: getFFTF, getFFTI
6 use pm_distUnif, only: getUnifRand
7 use pm_mathCompare, only: isClose
8 use pm_err, only: setAsserted
9
10 implicit none
11
12 integer(IK) :: i
13 integer(IK) :: lenData
14 type(display_type) :: disp
15 disp = display_type(file = "main.out.F90")
16
17 do i = 1, 5
18 block
19 use pm_kind, only: TKC => CKS
20 real(TKC) :: reltol
21 complex(TKC), allocatable :: data(:), atad(:)
22 call disp%show("lenData = getUnifRand(5, 100)")
23 lenData = getUnifRand(5, 100)
24 call disp%show("lenData")
25 call disp%show( lenData )
26 call disp%show("data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)")
27 data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
28 call disp%show("data")
29 call disp%show( data )
30 call disp%skip()
31 call disp%show("atad = getFFTI(getFFTF(data))")
32 atad = getFFTI(getFFTF(data))
33 call disp%show("atad")
34 call disp%show( atad )
35 call disp%show("reltol = sqrt(epsilon(1._TKC))")
36 reltol = sqrt(epsilon(1._TKC))
37 call disp%show("reltol")
38 call disp%show( reltol )
39 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")
40 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )
41 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")
42 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
43 call disp%skip()
44 end block
45
46 block
47 use pm_kind, only: TKC => CKD
48 real(TKC) :: reltol
49 complex(TKC), allocatable :: data(:), atad(:)
50 call disp%show("lenData = getUnifRand(5, 100)")
51 lenData = getUnifRand(5, 100)
52 call disp%show("lenData")
53 call disp%show( lenData )
54 call disp%show("data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)")
55 data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
56 call disp%show("data")
57 call disp%show( data )
58 call disp%skip()
59 call disp%show("atad = getFFTI(getFFTF(data))")
60 atad = getFFTI(getFFTF(data))
61 call disp%show("atad")
62 call disp%show( atad )
63 call disp%show("reltol = sqrt(epsilon(1._TKC))")
64 reltol = sqrt(epsilon(1._TKC))
65 call disp%show("reltol")
66 call disp%show( reltol )
67 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")
68 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )
69 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")
70 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
71 call disp%skip()
72 end block
73
74 block
75 use pm_kind, only: TKC => CKH
76 real(TKC) :: reltol
77 complex(TKC), allocatable :: data(:), atad(:)
78 call disp%show("lenData = getUnifRand(5, 100)")
79 lenData = getUnifRand(5, 100)
80 call disp%show("lenData")
81 call disp%show( lenData )
82 call disp%show("data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)")
83 data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
84 call disp%show("data")
85 call disp%show( data )
86 call disp%skip()
87 call disp%show("atad = getFFTI(getFFTF(data))")
88 atad = getFFTI(getFFTF(data))
89 call disp%show("atad")
90 call disp%show( atad )
91 call disp%show("reltol = sqrt(epsilon(1._TKC))")
92 reltol = sqrt(epsilon(1._TKC))
93 call disp%show("reltol")
94 call disp%show( reltol )
95 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")
96 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )
97 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")
98 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
99 call disp%skip()
100 end block
101
102 block
103 use pm_kind, only: TKC => RKS
104 real(TKC) :: reltol
105 real(TKC), allocatable :: data(:), atad(:)
106 call disp%show("lenData = getUnifRand(5, 100)")
107 lenData = getUnifRand(5, 100)
108 call disp%show("lenData")
109 call disp%show( lenData )
110 call disp%show("data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)")
111 data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
112 call disp%show("data")
113 call disp%show( data )
114 call disp%skip()
115 call disp%show("atad = getFFTI(getFFTF(data))")
116 atad = getFFTI(getFFTF(data))
117 call disp%show("atad")
118 call disp%show( atad )
119 call disp%show("reltol = sqrt(epsilon(1._TKC))")
120 reltol = sqrt(epsilon(1._TKC))
121 call disp%show("reltol")
122 call disp%show( reltol )
123 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")
124 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )
125 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")
126 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
127 call disp%skip()
128 end block
129
130 block
131 use pm_kind, only: TKC => RKD
132 real(TKC) :: reltol
133 real(TKC), allocatable :: data(:), atad(:)
134 call disp%show("lenData = getUnifRand(5, 100)")
135 lenData = getUnifRand(5, 100)
136 call disp%show("lenData")
137 call disp%show( lenData )
138 call disp%show("data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)")
139 data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
140 call disp%show("data")
141 call disp%show( data )
142 call disp%skip()
143 call disp%show("atad = getFFTI(getFFTF(data))")
144 atad = getFFTI(getFFTF(data))
145 call disp%show("atad")
146 call disp%show( atad )
147 call disp%show("reltol = sqrt(epsilon(1._TKC))")
148 reltol = sqrt(epsilon(1._TKC))
149 call disp%show("reltol")
150 call disp%show( reltol )
151 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")
152 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )
153 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")
154 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
155 call disp%skip()
156 end block
157
158 block
159 use pm_kind, only: TKC => RKH
160 real(TKC) :: reltol
161 real(TKC), allocatable :: data(:), atad(:)
162 call disp%show("lenData = getUnifRand(5, 100)")
163 lenData = getUnifRand(5, 100)
164 call disp%show("lenData")
165 call disp%show( lenData )
166 call disp%show("data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)")
167 data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
168 call disp%show("data")
169 call disp%show( data )
170 call disp%skip()
171 call disp%show("atad = getFFTI(getFFTF(data))")
172 atad = getFFTI(getFFTF(data))
173 call disp%show("atad")
174 call disp%show( atad )
175 call disp%show("reltol = sqrt(epsilon(1._TKC))")
176 reltol = sqrt(epsilon(1._TKC))
177 call disp%show("reltol")
178 call disp%show( reltol )
179 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")
180 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )
181 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")
182 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
183 call disp%skip()
184 end block
185 end do
186
187end program example
Generate and return a scalar or a contiguous array of rank 1 of length s1 of randomly uniformly distr...
Verify the input assertion holds and if it does not, print the (optional) input message on stdout and...
Definition: pm_err.F90:735
Generate and return an object of type stop_type with the user-specified input attributes.
Definition: pm_err.F90:1618
Generate and return the Forward Fourier Transform (a.k.a. Fourier Analysis) of a periodic sequence of...
Definition: pm_fftnr.F90:250
This is a generic method of the derived type display_type with pass attribute.
Definition: pm_io.F90:11131
Generate and return .true. if the two input values are sufficiently close to each other within the sp...
This module contains classes and procedures for computing various statistical quantities related to t...
This module contains classes and procedures for reporting and handling errors.
Definition: pm_err.F90:52
This module contains classes and procedures for input/output (IO) or generic display operations on st...
Definition: pm_io.F90:252
type(display_type) disp
This is a scalar module variable an object of type display_type for general display.
Definition: pm_io.F90:11016
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
Definition: pm_kind.F90:268
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
Definition: pm_kind.F90:541
integer, parameter CKH
The scalar integer constant of intrinsic default kind, representing the highest-precision complex kin...
Definition: pm_kind.F90:843
integer, parameter CKS
The single-precision complex kind in Fortran mode. On most platforms, this is a 32-bit real kind.
Definition: pm_kind.F90:570
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
Definition: pm_kind.F90:540
integer, parameter CKD
The double precision complex kind in Fortran mode. On most platforms, this is a 64-bit real kind.
Definition: pm_kind.F90:571
integer, parameter RKD
The double precision real kind in Fortran mode. On most platforms, this is an 64-bit real kind.
Definition: pm_kind.F90:568
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
Definition: pm_kind.F90:539
integer, parameter RKH
The scalar integer constant of intrinsic default kind, representing the highest-precision real kind t...
Definition: pm_kind.F90:858
integer, parameter RKS
The single-precision real kind in Fortran mode. On most platforms, this is an 32-bit real kind.
Definition: pm_kind.F90:567
This module contains the procedures and interfaces for evaluating the relative or absolute proximity ...
Generate and return an object of type display_type.
Definition: pm_io.F90:10282

Example Unix compile command via Intel ifort compiler
1#!/usr/bin/env sh
2rm main.exe
3ifort -fpp -standard-semantics -O3 -Wl,-rpath,../../../lib -I../../../inc main.F90 ../../../lib/libparamonte* -o main.exe
4./main.exe

Example Windows Batch compile command via Intel ifort compiler
1del main.exe
2set PATH=..\..\..\lib;%PATH%
3ifort /fpp /standard-semantics /O3 /I:..\..\..\include main.F90 ..\..\..\lib\libparamonte*.lib /exe:main.exe
4main.exe

Example Unix / MinGW compile command via GNU gfortran compiler
1#!/usr/bin/env sh
2rm main.exe
3gfortran -cpp -ffree-line-length-none -O3 -Wl,-rpath,../../../lib -I../../../inc main.F90 ../../../lib/libparamonte* -o main.exe
4./main.exe

Example output
1lenData = getUnifRand(5, 100)
2lenData
3+74
4data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
5data
6(+1.51102269, +0.925940752), (+1.80157328, +0.425027013), (+1.61733103, +0.765812457), (+1.34908223, +0.756547689), (+1.87201881, +0.763219178), (+1.62653518, +0.432774723), (+1.82513118, +0.829423308), (+1.82910919, +0.903856754E-1), (+1.04771221, +0.915563107E-1), (+1.33341146, +0.730166912), (+1.31135571, +0.497932792), (+1.84601915, +0.484904826), (+1.98111844, +0.718543530E-1), (+1.35414290, +0.845726788), (+1.61106324, +0.552707672), (+1.91762471, +0.744801760E-1), (+1.41736019, +0.899822056), (+1.41660070, +0.812846541), (+1.80737782, +0.744373143), (+1.82328165, +0.728267848), (+1.44658089, +0.159951210), (+1.34822941, +0.835069180), (+1.53428984, +0.392639637E-2), (+1.95123410, +0.288011432E-1), (+1.91455472, +0.561025321), (+1.61132860, +0.332948864), (+1.84343886, +0.436402380), (+1.03634727, +0.697801173), (+1.52135181, +0.669472039), (+1.80762649, +0.901929140E-1), (+1.58630300, +0.596584082E-1), (+1.68553603, +0.933413506E-1), (+1.89519906, +0.963882148), (+1.87832832, +0.574999154), (+1.57577777, +0.308889210), (+1.29065990, +0.176549852), (+1.00100160, +0.360890627), (+1.55846202, +0.100047588E-1), (+1.78210771, +0.133362830), (+1.20318890, +0.170297742), (+1.88432229, +0.674813628), (+1.74281442, +0.326839268), (+1.96089292, +0.425600529), (+1.44639862, +0.501595736E-1), (+1.28079247, +0.697346985), (+1.16945004, +0.422425389), (+1.14390266, +0.160267293), (+1.10883331, +0.984707057), (+1.48807168, +0.142993331E-1), (+1.10763633, +0.202803910), (+1.86340737, +0.187698483), (+1.77736735, +0.776745141), (+1.67913294, +0.340262532), (+1.26239443, +0.215387702), (+1.08312535, +0.996721089), (+1.42573321, +0.905598342), (+1.91773701, +0.190394819), (+1.74828482, +0.267811656), (+1.08423090, +0.182311833), (+1.61595035, +0.775201976), (+1.11019707, +0.986749530), (+1.73931813, +0.754642010), (+1.85430932, +0.996048391), (+1.75349426, +0.708341002E-1), (+1.69169211, +0.765875578), (+1.46376443, +0.721791148), (+1.75434947, +0.518463016), (+1.73045754, +0.227416158E-1), (+1.31602550, +0.481308103E-1), (+1.25069308, +0.665790617), (+1.66823959, +0.556883812E-1), (+1.38324571, +0.628781974), (+1.86019528, +0.591437817E-1), (+1.58803678, +0.448487401)
7
8atad = getFFTI(getFFTF(data))
9atad
10(+1.51102269, +0.925940812), (+1.80157351, +0.425027013), (+1.61733067, +0.765812516), (+1.34908187, +0.756547809), (+1.87201858, +0.763218999), (+1.62653506, +0.432774484), (+1.82513118, +0.829423130), (+1.82910872, +0.903855562E-1), (+1.04771233, +0.915561914E-1), (+1.33341169, +0.730166912), (+1.31135583, +0.497932911), (+1.84601903, +0.484905034), (+1.98111844, +0.718545914E-1), (+1.35414290, +0.845726609), (+1.61106324, +0.552707672), (+1.91762471, +0.744802207E-1), (+1.41736007, +0.899821997), (+1.41660070, +0.812846541), (+1.80737770, +0.744373143), (+1.82328153, +0.728268027), (+1.44658077, +0.159951329), (+1.34822917, +0.835069060), (+1.53428960, +0.392653048E-2), (+1.95123386, +0.288012326E-1), (+1.91455460, +0.561025560), (+1.61132860, +0.332949042), (+1.84343886, +0.436402529), (+1.03634715, +0.697801232), (+1.52135170, +0.669472337), (+1.80762625, +0.901932642E-1), (+1.58630300, +0.596586280E-1), (+1.68553603, +0.933415443E-1), (+1.89519906, +0.963881969), (+1.87832832, +0.574999094), (+1.57577777, +0.308889031), (+1.29065990, +0.176549792), (+1.00100160, +0.360890567), (+1.55846214, +0.100047141E-1), (+1.78210783, +0.133362576), (+1.20318890, +0.170297563), (+1.88432217, +0.674813509), (+1.74281454, +0.326839387), (+1.96089292, +0.425600320), (+1.44639850, +0.501594618E-1), (+1.28079247, +0.697346866), (+1.16944993, +0.422425568), (+1.14390302, +0.160267085), (+1.10883319, +0.984706879), (+1.48807156, +0.142992735E-1), (+1.10763645, +0.202803865), (+1.86340714, +0.187698111), (+1.77736700, +0.776744843), (+1.67913282, +0.340262294), (+1.26239419, +0.215387657), (+1.08312559, +0.996720672), (+1.42573309, +0.905598044), (+1.91773677, +0.190394834), (+1.74828458, +0.267811716), (+1.08423066, +0.182311684), (+1.61594999, +0.775201976), (+1.11019695, +0.986749411), (+1.73931766, +0.754641891), (+1.85430908, +0.996048212), (+1.75349426, +0.708341599E-1), (+1.69169223, +0.765875518), (+1.46376443, +0.721791148), (+1.75434959, +0.518462658), (+1.73045743, +0.227414668E-1), (+1.31602550, +0.481308997E-1), (+1.25069320, +0.665790737), (+1.66823983, +0.556882024E-1), (+1.38324594, +0.628782034), (+1.86019516, +0.591439009E-1), (+1.58803654, +0.448487520), (+0.178813934E-6, -0.253319740E-6), (+0.119209290E-6, -0.149011612E-6), (+0.00000000, -0.596046448E-7), (-0.178813934E-6, +0.119209290E-6), (+0.178813934E-6, +0.149011612E-6), (+0.238418579E-6, +0.223517418E-6), (+0.00000000, -0.894069672E-7), (-0.596046448E-7, +0.298023224E-7), (+0.119209290E-6, -0.596046448E-7), (+0.596046448E-7, -0.298023224E-7), (+0.119209290E-6, +0.670552254E-7), (+0.596046448E-7, +0.238418579E-6), (+0.417232513E-6, +0.745058060E-7), (+0.417232513E-6, +0.268220901E-6), (+0.00000000, -0.178813934E-6), (-0.119209290E-6, -0.163912773E-6), (+0.596046448E-7, -0.298023224E-7), (+0.178813934E-6, -0.894069672E-7), (+0.119209290E-6, -0.119209290E-6), (+0.178813934E-6, -0.521540642E-7), (+0.178813934E-6, -0.100582838E-6), (+0.119209290E-6, +0.782310963E-7), (-0.596046448E-7, +0.596046448E-7), (-0.596046448E-7, +0.119209290E-6), (+0.238418579E-6, +0.223517418E-6), (+0.596046448E-7, +0.171363354E-6), (+0.596046448E-7, +0.208616257E-6), (+0.00000000, +0.283122063E-6), (+0.00000000, +0.342726707E-6), (+0.596046448E-7, +0.238418579E-6), (+0.00000000, -0.298023224E-7), (+0.596046448E-7, +0.00000000), (+0.178813934E-6, +0.208616257E-6), (+0.298023224E-6, +0.186264515E-6), (+0.00000000, +0.119209290E-6), (+0.119209290E-6, -0.745058060E-7), (-0.596046448E-7, +0.238418579E-6), (+0.119209290E-6, +0.119209290E-6), (+0.119209290E-6, +0.596046448E-7), (+0.119209290E-6, +0.163912773E-6), (+0.238418579E-6, +0.402331352E-6), (+0.119209290E-6, +0.417232513E-6), (+0.119209290E-6, +0.596046448E-7), (+0.00000000, +0.193715096E-6), (+0.238418579E-6, +0.357627869E-6), (+0.178813934E-6, +0.268220901E-6), (+0.298023224E-6, -0.163912773E-6), (+0.357627869E-6, -0.119209290E-6), (+0.238418579E-6, +0.268220901E-6), (+0.119209290E-6, +0.238418579E-6), (+0.119209290E-6, +0.00000000), (+0.178813934E-6, -0.298023224E-7), (+0.596046448E-7, +0.119209290E-6), (-0.178813934E-6, +0.298023224E-7)
11reltol = sqrt(epsilon(1._TKC))
12reltol
13+0.345266977E-3
14isClose(data, atad(1:size(data)), reltol = reltol)
15T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
16call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
17
18lenData = getUnifRand(5, 100)
19lenData
20+84
21data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
22data
23(+1.9171058640847145, +0.45070577188203143), (+1.8020908355745457, +0.83311615361724312), (+1.6299307527376259, +0.89453817841196648), (+1.9603108116402972, +0.26009122711951449), (+1.4020608127315470, +0.45342503514633425E-1), (+1.8620977293663887, +0.17839208522850192), (+1.6191175464245711, +0.73216842081053379), (+1.2855972484214548, +0.76607043002742836), (+1.3971386331477293, +0.58123272878240628), (+1.4144037704962613, +0.35900341813237269), (+1.6372826449038906, +0.71939602712477713), (+1.3165540891698262, +0.45817204104694231), (+1.6069240136396941, +0.59572209293838541), (+1.1928330371390321, +0.11033310638828886), (+1.8719517522242382, +0.43313585575442082), (+1.7463892785580581, +0.54365272045770607), (+1.2337201091243375, +0.30499387837700842), (+1.3685152729667442, +0.22940512537788504E-1), (+1.8019435837768656, +0.90281819865528856), (+1.5936264428732345, +0.84586938279526946), (+1.5177448989420230, +0.71979422012331062), (+1.0547520078991757, +0.91115846455305394), (+1.1099168749305459, +0.33761105670172542E-1), (+1.8957836255302327, +0.94259722479765395), (+1.1736204827835288, +0.51811836570285175), (+1.2015640382450354, +0.31871267853512064), (+1.0465810610580741, +0.92640420067269635), (+1.9841536590839619, +0.11427342880343527), (+1.0292041726768015, +0.39279536496829359E-1), (+1.7811782536666292, +0.45959236344601861E-1), (+1.2263766530671703, +0.20986941807358828), (+1.6758527728260937, +0.63564885978700381), (+1.7166050718863486, +0.93853808691292617), (+1.9714706164571694, +0.39172702206529242E-1), (+1.8648988008998368, +0.99062326616398577), (+1.1480067149313498, +0.47236438782612888), (+1.2577264857158887, +0.54665694097523654), (+1.2147917772818975, +0.91295092276093193), (+1.7737584091033547, +0.29383491400290185), (+1.9542071869771238, +0.39571592767638730), (+1.3390793934518226, +0.36780857798103561), (+1.0450642376330341, +0.63453635622655524), (+1.1892375045911392, +0.22912660257180639), (+1.2330075597312615, +0.81407128292825237), (+1.9038952258486566, +0.45999516913943772E-2), (+1.7378396944285117, +0.27121804371773750), (+1.3984897701206696, +0.22868182694431449), (+1.5974011814956321, +0.54504800578044710), (+1.4852336184904125, +0.44558965583759269E-1), (+1.2586626089791140, +0.60221358814133064), (+1.1939174844728797, +0.57566126028796960E-1), (+1.7917552400986336, +0.63958334169641839), (+1.5277934776802375, +0.95758846935476649), (+1.2562532239902671, +0.88637912957446297), (+1.9917011686450643, +0.28830417505088080E-1), (+1.7336521561520524, +0.22132818355785477), (+1.8886965566106020, +0.95932143709568851), (+1.1529623854391124, +0.33530287091023558), (+1.7010673685179447, +0.97524128471444915), (+1.6333854555251732, +0.74410336432162438), (+1.0013714148368882, +0.54084382944835419E-1), (+1.7030895552170278, +0.96205647926234394), (+1.3542236130798639, +0.40202206193004542), (+1.4663981040590306, +0.11009753731463789), (+1.2512453558511529, +0.27363267266108537), (+1.2203518828688646, +0.25732077358463024), (+1.6692738266656499, +0.60234248696462334), (+1.3947953387270853, +0.83771609568062444), (+1.2627405349971133, +0.31934779245576195), (+1.1354791637760822, +0.32419164504501885E-1), (+1.2551114737098583, +0.37047396835467894), (+1.2325736973562686, +0.17276802371030664), (+1.0421313212903964, +0.27038847764900487), (+1.1062381750115931, +0.87888355792539430), (+1.5392987591292850, +0.73608256874121403), (+1.8202345107458164, +0.55129299282013267), (+1.3612023893891283, +0.88265169468672422), (+1.6368308628411192, +0.74833712300105348), (+1.7106610726588114, +0.36989493984200372E-1), (+1.9007221957335960, +0.46536055876330484), (+1.0223327036719310, +0.58512527079703425), (+1.8954057357208312, +0.62172103381974930), (+1.7356515292698700, +0.41422546814506311), (+1.8235440952555373, +0.37808221040259615)
24
25atad = getFFTI(getFFTF(data))
26atad
27(+1.9171058640847145, +0.45070577188203143), (+1.8020908355745464, +0.83311615361724345), (+1.6299307527376266, +0.89453817841196659), (+1.9603108116402972, +0.26009122711951493), (+1.4020608127315468, +0.45342503514633647E-1), (+1.8620977293663887, +0.17839208522850228), (+1.6191175464245708, +0.73216842081053413), (+1.2855972484214542, +0.76607043002742858), (+1.3971386331477298, +0.58123272878240662), (+1.4144037704962620, +0.35900341813237313), (+1.6372826449038906, +0.71939602712477746), (+1.3165540891698264, +0.45817204104694270), (+1.6069240136396941, +0.59572209293838541), (+1.1928330371390323, +0.11033310638828908), (+1.8719517522242379, +0.43313585575442104), (+1.7463892785580579, +0.54365272045770663), (+1.2337201091243377, +0.30499387837700842), (+1.3685152729667445, +0.22940512537788726E-1), (+1.8019435837768658, +0.90281819865528845), (+1.5936264428732336, +0.84586938279526980), (+1.5177448989420230, +0.71979422012331062), (+1.0547520078991752, +0.91115846455305372), (+1.1099168749305459, +0.33761105670172584E-1), (+1.8957836255302321, +0.94259722479765418), (+1.1736204827835290, +0.51811836570285164), (+1.2015640382450357, +0.31871267853512053), (+1.0465810610580744, +0.92640420067269624), (+1.9841536590839617, +0.11427342880343577), (+1.0292041726768018, +0.39279536496829526E-1), (+1.7811782536666292, +0.45959236344602097E-1), (+1.2263766530671703, +0.20986941807358839), (+1.6758527728260935, +0.63564885978700414), (+1.7166050718863490, +0.93853808691292606), (+1.9714706164571696, +0.39172702206529006E-1), (+1.8648988008998373, +0.99062326616398555), (+1.1480067149313493, +0.47236438782612900), (+1.2577264857158887, +0.54665694097523643), (+1.2147917772818975, +0.91295092276093159), (+1.7737584091033551, +0.29383491400290140), (+1.9542071869771234, +0.39571592767638714), (+1.3390793934518228, +0.36780857798103561), (+1.0450642376330341, +0.63453635622655491), (+1.1892375045911394, +0.22912660257180628), (+1.2330075597312611, +0.81407128292825226), (+1.9038952258486566, +0.45999516913942107E-2), (+1.7378396944285115, +0.27121804371773739), (+1.3984897701206696, +0.22868182694431438), (+1.5974011814956321, +0.54504800578044721), (+1.4852336184904127, +0.44558965583759352E-1), (+1.2586626089791144, +0.60221358814133019), (+1.1939174844728802, +0.57566126028796794E-1), (+1.7917552400986336, +0.63958334169641828), (+1.5277934776802378, +0.95758846935476594), (+1.2562532239902673, +0.88637912957446252), (+1.9917011686450641, +0.28830417505087816E-1), (+1.7336521561520519, +0.22132818355785450), (+1.8886965566106022, +0.95932143709568840), (+1.1529623854391127, +0.33530287091023536), (+1.7010673685179449, +0.97524128471444882), (+1.6333854555251732, +0.74410336432162427), (+1.0013714148368882, +0.54084382944835377E-1), (+1.7030895552170273, +0.96205647926234339), (+1.3542236130798639, +0.40202206193004519), (+1.4663981040590308, +0.11009753731463774), (+1.2512453558511532, +0.27363267266108526), (+1.2203518828688649, +0.25732077358463046), (+1.6692738266656504, +0.60234248696462322), (+1.3947953387270851, +0.83771609568062433), (+1.2627405349971135, +0.31934779245576178), (+1.1354791637760819, +0.32419164504501857E-1), (+1.2551114737098585, +0.37047396835467877), (+1.2325736973562686, +0.17276802371030681), (+1.0421313212903964, +0.27038847764900492), (+1.1062381750115931, +0.87888355792539441), (+1.5392987591292848, +0.73608256874121403), (+1.8202345107458162, +0.55129299282013278), (+1.3612023893891285, +0.88265169468672411), (+1.6368308628411190, +0.74833712300105315), (+1.7106610726588112, +0.36989493984200400E-1), (+1.9007221957335958, +0.46536055876330451), (+1.0223327036719312, +0.58512527079703414), (+1.8954057357208314, +0.62172103381974930), (+1.7356515292698698, +0.41422546814506289), (+1.8235440952555368, +0.37808221040259571), (+0.55511151231257827E-15, +0.11102230246251565E-15), (+0.33306690738754696E-15, -0.16653345369377348E-15), (+0.55511151231257827E-15, -0.69388939039072284E-16), (+0.44408920985006262E-15, -0.38857805861880479E-15), (+0.22204460492503131E-15, -0.55511151231257827E-16), (+0.44408920985006262E-15, -0.19428902930940239E-15), (+0.33306690738754696E-15, -0.22204460492503131E-15), (+0.33306690738754696E-15, -0.38857805861880479E-15), (+0.33306690738754696E-15, -0.19428902930940239E-15), (+0.44408920985006262E-15, -0.29143354396410359E-15), (+0.33306690738754696E-15, -0.55511151231257827E-16), (+0.44408920985006262E-15, -0.55511151231257827E-15), (+0.22204460492503131E-15, +0.27755575615628914E-15), (+0.22204460492503131E-15, +0.13877787807814457E-16), (-0.11102230246251565E-15, +0.27755575615628914E-15), (-0.33306690738754696E-15, +0.83266726846886741E-16), (+0.0000000000000000, +0.44408920985006262E-15), (-0.11102230246251565E-15, +0.16653345369377348E-15), (+0.11102230246251565E-15, +0.24980018054066022E-15), (+0.11102230246251565E-15, +0.27755575615628914E-15), (+0.22204460492503131E-15, +0.83266726846886741E-16), (-0.11102230246251565E-15, -0.16653345369377348E-15), (+0.11102230246251565E-15, +0.0000000000000000), (+0.11102230246251565E-15, -0.11102230246251565E-15), (+0.0000000000000000, +0.27755575615628914E-15), (+0.22204460492503131E-15, +0.83266726846886741E-16), (+0.33306690738754696E-15, +0.11102230246251565E-15), (+0.22204460492503131E-15, +0.0000000000000000), (+0.33306690738754696E-15, +0.19428902930940239E-15), (+0.33306690738754696E-15, +0.22204460492503131E-15), (+0.66613381477509392E-15, +0.27755575615628914E-15), (-0.11102230246251565E-15, +0.0000000000000000), (+0.22204460492503131E-15, +0.55511151231257827E-15), (+0.0000000000000000, +0.38857805861880479E-15), (+0.22204460492503131E-15, +0.62450045135165055E-15), (+0.11102230246251565E-15, +0.66613381477509392E-15), (+0.22204460492503131E-15, +0.22204460492503131E-15), (+0.55511151231257827E-15, +0.24980018054066022E-15), (+0.44408920985006262E-15, +0.33306690738754696E-15), (+0.33306690738754696E-15, +0.33306690738754696E-15), (+0.33306690738754696E-15, +0.29143354396410359E-15), (+0.33306690738754696E-15, +0.66613381477509392E-15), (+0.22204460492503131E-15, +0.52735593669694936E-15), (+0.44408920985006262E-15, +0.87430063189231078E-15)
28reltol = sqrt(epsilon(1._TKC))
29reltol
30+0.14901161193847656E-7
31isClose(data, atad(1:size(data)), reltol = reltol)
32T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
33call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
34
35lenData = getUnifRand(5, 100)
36lenData
37+24
38data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
39data
40(+1.90711542402230115488163791978291148, +0.419594173756675537341604377547454798), (+1.84700752928070249792800260789344333, +0.398476221769277169229807405906322137), (+1.08189410841725271899225226644477942, +0.937023764468856686659404195133078583), (+1.84408410108969137520947473718642743, +0.336562244582284230050183460135781133), (+1.24157480767644924603336666631740359, +0.397149877925276601693644070097105104), (+1.99246388936756032943806549912289388, +0.439643611253676469526592252308642583), (+1.35782403986289141204161918938687942, +0.580374406155840913805266119691864096), (+1.60170385812124956103768670241437233, +0.142553888707929645627684389077561812), (+1.22290932554854023851460848690390493, +0.954485927221788901723406684128602856), (+1.57795377420067350070396408765148864, +0.137872431647033841529528035647226583), (+1.13835940800248470461319322288039015, +0.422691216204930903047752792169651715), (+1.49710120860753727636058414433473183, +0.590447105210851096684407519729023424), (+1.29643419247962765787127614007893980, +0.419260094967770709823284208266824775), (+1.78545826613510911368496849480199603, +0.974463266083139878548498281601098837), (+1.45054013057950830824596090995070105, +0.960767754128541323866470192739757841), (+1.85310669198709842267675342805135965, +0.878710830368580749061207289201846755), (+1.16643581999258986183571904742025038, +0.167675542996030936186449920691319193), (+1.63113211748757865171903030740729021, +0.629117394482051498182317981810988197), (+1.31655142264089911153084752130367393, +0.688415358819599208350112491552973419), (+1.94395521179350184758390752048373891, +0.291011270542431222153122823980764054), (+1.51359115981641895603372797360700155, +0.939021676847671591695160624437107975), (+1.42833420634008184472584879426786838, +0.533161019015454259318441895528313134), (+1.85790865038907666012832267897252171, +0.772713098000835695577048027655186154), (+1.23936414265819914533478044366869674, +0.720421827269254914430266097524939323E-1)
41
42atad = getFFTI(getFFTF(data))
43atad
44(+1.90711542402230115488163791978291167, +0.419594173756675537341604377547454798), (+1.84700752928070249792800260789344314, +0.398476221769277169229807405906322233), (+1.08189410841725271899225226644477962, +0.937023764468856686659404195133078680), (+1.84408410108969137520947473718642782, +0.336562244582284230050183460135781037), (+1.24157480767644924603336666631740359, +0.397149877925276601693644070097105008), (+1.99246388936756032943806549912289388, +0.439643611253676469526592252308642342), (+1.35782403986289141204161918938687981, +0.580374406155840913805266119691863807), (+1.60170385812124956103768670241437252, +0.142553888707929645627684389077561716), (+1.22290932554854023851460848690390493, +0.954485927221788901723406684128602759), (+1.57795377420067350070396408765148844, +0.137872431647033841529528035647226631), (+1.13835940800248470461319322288039035, +0.422691216204930903047752792169651715), (+1.49710120860753727636058414433473183, +0.590447105210851096684407519729023713), (+1.29643419247962765787127614007893980, +0.419260094967770709823284208266824582), (+1.78545826613510911368496849480199603, +0.974463266083139878548498281601098933), (+1.45054013057950830824596090995070105, +0.960767754128541323866470192739758034), (+1.85310669198709842267675342805135984, +0.878710830368580749061207289201846852), (+1.16643581999258986183571904742025058, +0.167675542996030936186449920691319097), (+1.63113211748757865171903030740729021, +0.629117394482051498182317981810988100), (+1.31655142264089911153084752130367412, +0.688415358819599208350112491552973708), (+1.94395521179350184758390752048373930, +0.291011270542431222153122823980764246), (+1.51359115981641895603372797360700155, +0.939021676847671591695160624437108168), (+1.42833420634008184472584879426786819, +0.533161019015454259318441895528313327), (+1.85790865038907666012832267897252210, +0.772713098000835695577048027655186443), (+1.23936414265819914533478044366869693, +0.720421827269254914430266097524941249E-1), (+0.385185988877447170611195588516985464E-33, -0.481482486096808963263994485646231830E-34), (+0.192592994438723585305597794258492732E-33, +0.481482486096808963263994485646231830E-34), (+0.00000000000000000000000000000000000, -0.168518870133883137142398069976181140E-33), (-0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34), (+0.00000000000000000000000000000000000, -0.481482486096808963263994485646231830E-34), (-0.962964972193617926527988971292463659E-34, +0.962964972193617926527988971292463659E-34), (+0.192592994438723585305597794258492732E-33, -0.192592994438723585305597794258492732E-33), (+0.192592994438723585305597794258492732E-33, +0.481482486096808963263994485646231830E-34)
45reltol = sqrt(epsilon(1._TKC))
46reltol
47+0.138777878078144567552953958511352539E-16
48isClose(data, atad(1:size(data)), reltol = reltol)
49T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
50call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
51
52lenData = getUnifRand(5, 100)
53lenData
54+9
55data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
56data
57+1.05898643, +1.01922584, +1.44113803, +1.69801605, +1.25070953, +1.86121321, +1.80805278, +1.05783844, +1.56203735
58
59atad = getFFTI(getFFTF(data))
60atad
61+1.05898631, +1.01922584, +1.44113767, +1.69801593, +1.25070953, +1.86121273, +1.80805254, +1.05783808, +1.56203735, -0.119209290E-6, +0.357627869E-6, +0.119209290E-6, -0.596046448E-7, +0.357627869E-6, +0.238418579E-6, +0.476837158E-6
62reltol = sqrt(epsilon(1._TKC))
63reltol
64+0.345266977E-3
65isClose(data, atad(1:size(data)), reltol = reltol)
66T, T, T, T, T, T, T, T, T
67call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
68
69lenData = getUnifRand(5, 100)
70lenData
71+13
72data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
73data
74+1.3655114541740077, +1.4758414635377024, +1.3954777310239384, +1.2527606825085986, +1.7113659685194502, +1.1846313690310692, +1.3612644527792226, +1.0202273631039835, +1.3020841813943367, +1.3979218029318647, +1.7848860742844295, +1.0562871301356456, +1.2390660556903073
75
76atad = getFFTI(getFFTF(data))
77atad
78+1.3655114541740074, +1.4758414635377026, +1.3954777310239379, +1.2527606825085986, +1.7113659685194507, +1.1846313690310692, +1.3612644527792226, +1.0202273631039831, +1.3020841813943367, +1.3979218029318650, +1.7848860742844290, +1.0562871301356453, +1.2390660556903073, +0.11102230246251565E-15, +0.22204460492503131E-15, +0.0000000000000000
79reltol = sqrt(epsilon(1._TKC))
80reltol
81+0.14901161193847656E-7
82isClose(data, atad(1:size(data)), reltol = reltol)
83T, T, T, T, T, T, T, T, T, T, T, T, T
84call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
85
86lenData = getUnifRand(5, 100)
87lenData
88+29
89data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
90data
91+1.79433403263525772916862018565078551, +1.93186134003599174612840681111743875, +1.55229661659654059750671943681321677, +1.20764012312796431962612434214409034, +1.65904664634800054691014950316210848, +1.68914349707283134498526639711710899, +1.89864528278192275493433676490360910, +1.15773285003681060095279698668396323, +1.09796423255571978144596773460056923, +1.51449608460876586688332418956244677, +1.23663065719513521510672711578922213, +1.32989395141629851418145236551521770, +1.35401707620801038428831123168459267, +1.41236985267048913875224945138302092, +1.27542346750335803218058276177715231, +1.27745595734734218177922760524216821, +1.80325796321050994470135973260350558, +1.03345792631059505732454117689551110, +1.67165164082398940513725589482003451, +1.78129573666082819044566800692344158, +1.63442966556505534000045527771703476, +1.00621186247859970345570936208787167, +1.51187598442615946248998765979209163, +1.67057174369610040254871941067747304, +1.65835082159620727345177277765618823, +1.86905238619859662425232208991396627, +1.94071379175440598170682872232586306, +1.51900112096835890693742038558529492, +1.71322154759948617416268592354840441
92
93atad = getFFTI(getFFTF(data))
94atad
95+1.79433403263525772916862018565078551, +1.93186134003599174612840681111743856, +1.55229661659654059750671943681321658, +1.20764012312796431962612434214409014, +1.65904664634800054691014950316210810, +1.68914349707283134498526639711710899, +1.89864528278192275493433676490360910, +1.15773285003681060095279698668396323, +1.09796423255571978144596773460056904, +1.51449608460876586688332418956244638, +1.23663065719513521510672711578922155, +1.32989395141629851418145236551521770, +1.35401707620801038428831123168459286, +1.41236985267048913875224945138302092, +1.27542346750335803218058276177715269, +1.27745595734734218177922760524216802, +1.80325796321050994470135973260350558, +1.03345792631059505732454117689551091, +1.67165164082398940513725589482003432, +1.78129573666082819044566800692344139, +1.63442966556505534000045527771703456, +1.00621186247859970345570936208787167, +1.51187598442615946248998765979209124, +1.67057174369610040254871941067747246, +1.65835082159620727345177277765618803, +1.86905238619859662425232208991396608, +1.94071379175440598170682872232586267, +1.51900112096835890693742038558529492, +1.71322154759948617416268592354840402, -0.288889491658085377958396691387739098E-33, -0.385185988877447170611195588516985464E-33, -0.192592994438723585305597794258492732E-33
96reltol = sqrt(epsilon(1._TKC))
97reltol
98+0.138777878078144567552953958511352539E-16
99isClose(data, atad(1:size(data)), reltol = reltol)
100T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
101call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
102
103lenData = getUnifRand(5, 100)
104lenData
105+89
106data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
107data
108(+1.98600376, +0.446791828), (+1.15548038, +0.301307082), (+1.80704093, +0.663510442), (+1.34222662, +0.140025735), (+1.13363767, +0.740599930), (+1.95245218, +0.387611926), (+1.79926157, +0.661240816), (+1.20382798, +0.561649442), (+1.41989028, +0.188686669), (+1.77700543, +0.279755175), (+1.46191645, +0.744427443), (+1.19633520, +0.407688618), (+1.72894955, +0.486524999), (+1.68617320, +0.605179608), (+1.85481226, +0.591858625), (+1.96535134, +0.637747228), (+1.70065975, +0.953486085), (+1.97905135, +0.630883873), (+1.17322659, +0.578764558), (+1.11347151, +0.909783602), (+1.76115847, +0.950481355), (+1.98156810, +0.700926185), (+1.14658523, +0.173877776), (+1.58354342, +0.511510730), (+1.61972880, +0.829733610), (+1.23767364, +0.153771460), (+1.62485266, +0.312601209), (+1.61035919, +0.754649401), (+1.35706234, +0.771698833), (+1.68978333, +0.371583700), (+1.18994904, +0.404150069), (+1.71180725, +0.728160501), (+1.30971169, +0.509129405), (+1.54635930, +0.612179637), (+1.74742937, +0.850469887), (+1.37936163, +0.991495907), (+1.84284973, +0.702971280), (+1.81494427, +0.596000433), (+1.09821177, +0.376463652), (+1.96361768, +0.410097241), (+1.25940049, +0.560635448), (+1.01577783, +0.837864220), (+1.28103495, +0.437782884), (+1.76603913, +0.658499479), (+1.99784970, +0.147888243), (+1.07319129, +0.280036688), (+1.35742044, +0.962091506), (+1.65354621, +0.846495926), (+1.20869529, +0.730184495), (+1.77484524, +0.575630605), (+1.11320257, +0.360330939E-1), (+1.09158134, +0.354214609), (+1.31139755, +0.184565723), (+1.80494118, +0.170958221), (+1.63214159, +0.117975473E-2), (+1.94245934, +0.291759491), (+1.24573231, +0.134810507), (+1.79299474, +0.809372663E-1), (+1.55727923, +0.866096318), (+1.05635786, +0.638303936), (+1.36116636, +0.554234743), (+1.45689344, +0.680004716), (+1.44219804, +0.424551606), (+1.87623584, +0.346835494), (+1.12574768, +0.624319315E-1), (+1.34790158, +0.193064332), (+1.87825012, +0.436292708), (+1.93735766, +0.872250497), (+1.43842924, +0.996493816), (+1.60855460, +0.331940770), (+1.71490812, +0.695148349), (+1.60925841, +0.905940711), (+1.67639780, +0.191526055), (+1.12964272, +0.271312594E-1), (+1.38545859, +0.115148783), (+1.88227344, +0.907811522E-1), (+1.37284732, +0.190661430), (+1.97781110, +0.925350249), (+1.31390047, +0.490737736), (+1.93354368, +0.776329875), (+1.72249091, +0.662587166), (+1.36207175, +0.416863322), (+1.71018577, +0.566493809), (+1.25693870, +0.615787089), (+1.49392080, +0.419151723), (+1.71936655, +0.424638271), (+1.74517846, +0.216523230), (+1.65494370, +0.745174348), (+1.55846000, +0.965002239)
109
110atad = getFFTI(getFFTF(data))
111atad
112(+1.98600376, +0.446791798), (+1.15548050, +0.301307261), (+1.80704045, +0.663510382), (+1.34222651, +0.140025854), (+1.13363743, +0.740599751), (+1.95245218, +0.387611926), (+1.79926109, +0.661240518), (+1.20382798, +0.561649203), (+1.41989040, +0.188686699), (+1.77700579, +0.279755414), (+1.46191633, +0.744427443), (+1.19633508, +0.407688797), (+1.72894931, +0.486525089), (+1.68617344, +0.605179787), (+1.85481215, +0.591858625), (+1.96535122, +0.637747228), (+1.70065951, +0.953486204), (+1.97905135, +0.630884051), (+1.17322636, +0.578764558), (+1.11347151, +0.909783483), (+1.76115847, +0.950481296), (+1.98156810, +0.700926125), (+1.14658499, +0.173877686), (+1.58354354, +0.511510670), (+1.61972868, +0.829733729), (+1.23767388, +0.153771549), (+1.62485242, +0.312601447), (+1.61035907, +0.754649639), (+1.35706234, +0.771698952), (+1.68978345, +0.371583968), (+1.18994904, +0.404150069), (+1.71180725, +0.728160560), (+1.30971158, +0.509129405), (+1.54635930, +0.612179637), (+1.74742901, +0.850469708), (+1.37936163, +0.991495728), (+1.84284973, +0.702970982), (+1.81494439, +0.596000195), (+1.09821177, +0.376463413), (+1.96361780, +0.410097063), (+1.25940037, +0.560635328), (+1.01577783, +0.837864101), (+1.28103471, +0.437782794), (+1.76603913, +0.658499420), (+1.99784958, +0.147888198), (+1.07319140, +0.280036688), (+1.35742033, +0.962091327), (+1.65354621, +0.846495867), (+1.20869517, +0.730184376), (+1.77484512, +0.575630426), (+1.11320257, +0.360331237E-1), (+1.09158146, +0.354214609), (+1.31139779, +0.184565663), (+1.80494118, +0.170958117), (+1.63214135, +0.117976218E-2), (+1.94245934, +0.291759342), (+1.24573255, +0.134810492), (+1.79299474, +0.809373707E-1), (+1.55727887, +0.866096139), (+1.05635786, +0.638303638), (+1.36116624, +0.554234624), (+1.45689344, +0.680004597), (+1.44219768, +0.424551487), (+1.87623572, +0.346835494), (+1.12574780, +0.624319613E-1), (+1.34790170, +0.193064392), (+1.87824988, +0.436292589), (+1.93735766, +0.872250319), (+1.43842936, +0.996493816), (+1.60855460, +0.331940711), (+1.71490812, +0.695148289), (+1.60925877, +0.905940652), (+1.67639780, +0.191526145), (+1.12964284, +0.271312892E-1), (+1.38545835, +0.115148753), (+1.88227344, +0.907813311E-1), (+1.37284708, +0.190661520), (+1.97781086, +0.925350428), (+1.31389999, +0.490737677), (+1.93354356, +0.776329815), (+1.72249079, +0.662587166), (+1.36207175, +0.416863203), (+1.71018553, +0.566493630), (+1.25693893, +0.615786910), (+1.49392080, +0.419151872), (+1.71936655, +0.424638212), (+1.74517846, +0.216523081), (+1.65494418, +0.745174110), (+1.55845964, +0.965002298), (+0.119209290E-6, -0.238418579E-6), (+0.596046448E-7, -0.134110451E-6), (+0.357627869E-6, -0.894069672E-7), (+0.596046448E-7, -0.298023224E-7), (+0.119209290E-6, -0.298023224E-7), (+0.596046448E-7, -0.447034836E-7), (+0.119209290E-6, +0.596046448E-7), (-0.119209290E-6, +0.298023224E-7), (+0.178813934E-6, +0.149011612E-6), (-0.119209290E-6, +0.387430191E-6), (+0.178813934E-6, +0.119209290E-6), (-0.596046448E-7, +0.357627869E-6), (+0.119209290E-6, +0.357627869E-6), (+0.00000000, +0.253319740E-6), (+0.238418579E-6, +0.238418579E-6), (-0.596046448E-7, -0.596046448E-7), (+0.238418579E-6, +0.596046448E-7), (-0.596046448E-7, +0.894069672E-7), (+0.238418579E-6, +0.119209290E-6), (+0.119209290E-6, +0.745058060E-7), (+0.178813934E-6, +0.596046448E-7), (+0.00000000, +0.894069672E-7), (+0.00000000, +0.00000000), (-0.596046448E-7, -0.596046448E-7), (+0.417232513E-6, +0.327825546E-6), (-0.596046448E-7, +0.208616257E-6), (+0.238418579E-6, +0.238418579E-6), (+0.238418579E-6, +0.119209290E-6), (+0.238418579E-6, +0.134110451E-6), (+0.00000000, +0.245869160E-6), (+0.357627869E-6, +0.208616257E-6), (+0.298023224E-6, -0.163912773E-6), (+0.536441803E-6, -0.782310963E-7), (+0.596046448E-7, +0.00000000), (+0.238418579E-6, +0.119209290E-6), (+0.178813934E-6, -0.894069672E-7), (+0.178813934E-6, +0.298023224E-7), (-0.119209290E-6, +0.163912773E-6), (+0.298023224E-6, +0.00000000)
113reltol = sqrt(epsilon(1._TKC))
114reltol
115+0.345266977E-3
116isClose(data, atad(1:size(data)), reltol = reltol)
117T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
118call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
119
120lenData = getUnifRand(5, 100)
121lenData
122+17
123data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
124data
125(+1.9845662140916507, +0.68847769065053277), (+1.1279115739087637, +0.62261022183694703), (+1.8861415299413891, +0.10766777519485971), (+1.6009788553535347, +0.75925239313211978), (+1.7009400052014363, +0.17282202372209621), (+1.3191656189107759, +0.87589217467410529), (+1.4947692487450528, +0.15333061526430880E-1), (+1.5279347503183252, +0.45524778669592814), (+1.0668121222272173, +0.63085813979278704), (+1.0566467426762844, +0.35995275650713365), (+1.9056336051086515, +0.55898277757225556E-1), (+1.6460142391538395, +0.16853369925457129), (+1.3637782795718434, +0.35793577851807301), (+1.0208108440679946, +0.61948123700266078), (+1.8530309716716700, +0.17204938072104670), (+1.2638676881148507, +0.53335380041047120), (+1.0925056269158913, +0.29998750087844583)
126
127atad = getFFTI(getFFTF(data))
128atad
129(+1.9845662140916507, +0.68847769065053277), (+1.1279115739087637, +0.62261022183694714), (+1.8861415299413888, +0.10766777519485979), (+1.6009788553535342, +0.75925239313211990), (+1.7009400052014361, +0.17282202372209643), (+1.3191656189107754, +0.87589217467410518), (+1.4947692487450523, +0.15333061526430949E-1), (+1.5279347503183247, +0.45524778669592808), (+1.0668121222272173, +0.63085813979278682), (+1.0566467426762842, +0.35995275650713349), (+1.9056336051086515, +0.55898277757225591E-1), (+1.6460142391538390, +0.16853369925457135), (+1.3637782795718432, +0.35793577851807284), (+1.0208108440679944, +0.61948123700266033), (+1.8530309716716693, +0.17204938072104647), (+1.2638676881148505, +0.53335380041047076), (+1.0925056269158913, +0.29998750087844578), (+0.11102230246251565E-15, -0.22204460492503131E-15), (+0.11102230246251565E-15, -0.34694469519536142E-16), (+0.55511151231257827E-15, -0.11102230246251565E-15), (+0.22204460492503131E-15, -0.11102230246251565E-15), (+0.55511151231257827E-15, +0.0000000000000000), (+0.33306690738754696E-15, -0.41633363423443370E-16), (+0.44408920985006262E-15, +0.55511151231257827E-16), (-0.11102230246251565E-15, +0.16653345369377348E-15), (+0.33306690738754696E-15, +0.16653345369377348E-15), (+0.33306690738754696E-15, +0.34694469519536142E-16), (+0.77715611723760958E-15, +0.55511151231257827E-16), (+0.22204460492503131E-15, +0.16653345369377348E-15), (+0.22204460492503131E-15, +0.33306690738754696E-15), (+0.44408920985006262E-15, +0.20816681711721685E-15), (+0.44408920985006262E-15, +0.44408920985006262E-15)
130reltol = sqrt(epsilon(1._TKC))
131reltol
132+0.14901161193847656E-7
133isClose(data, atad(1:size(data)), reltol = reltol)
134T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
135call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
136
137lenData = getUnifRand(5, 100)
138lenData
139+72
140data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
141data
142(+1.40471186408812471564801860528643838, +0.773367890446503403065055930384576117), (+1.17821608221282233446280488453100447, +0.783346603104181402784200179579938788), (+1.45100458590130725172175471195535312, +0.441558344805824260531784410346200686), (+1.74424582357469601254120392354866129, +0.565162910457872277399727708479364081), (+1.89085664281648365461423896301384634, +0.200216120476930208799662951434452934E-1), (+1.12509024640733975024441865359864563, +0.585924312127559353361322894598210169), (+1.19828241718783408061076107836096016, +0.271393863435568805390909877706587741), (+1.30417293919610666492682632523243409, +0.864512549530192817989594487812475481E-1), (+1.25036178149418546200145537766317623, +0.751386276746939771506093455210052115E-1), (+1.25655926557433455890937030565129622, +0.839924632345475856564195428095838656), (+1.73895469407709802390644512368838584, +0.226046405560753072942907839842107891), (+1.80175402703454864095008263464744719, +0.429923818569155026970076745368348995), (+1.25727501597652350111352758846153099, +0.236219559672885216139901461380668936), (+1.79250624279974043291583741896975782, +0.319166264560727864204477932591113093), (+1.09717834971222621272589517738768227, +0.996581624286958573620809008942539635), (+1.77618656388242408149941950642505430, +0.346507377086749616758906189919498701), (+1.40447853618614607893934188807097742, +0.397390294370814679552907710866914709), (+1.53449203779173784694519815579555561, +0.249854553217012639188733768418073630), (+1.01728493402237723520154267194473632, +0.792769130839436474009166025283655504), (+1.60803559273700812111270709345846845, +0.879381663987219118794422743668648699E-1), (+1.50623081959525153078580236227973327, +0.284119281379668889150571661056550073), (+1.91295702139527573800428615939827525, +0.657111399134962794919313473046620632), (+1.14375481216211683905407669086342617, +0.936826967755214014156439670567612445), (+1.05501064058360043432193867728147963, +0.609876037278653067813063510559375979), (+1.47574808025947223915677695154478889, +0.632762685447381487072523900847513280), (+1.53101150124223622188177758634947494, +0.160277689997034994515801398812815503), (+1.51658263546062999049517676390075439, +0.320456400607997500564795312765366669), (+1.18570231704948444438091227941668754, +0.660596290237074590150325359339076644), (+1.62165098032980552267701783389025798, +0.585343150970985453616808155273046643E-1), (+1.59536039180185534556347979568713546, +0.638757198797152780765950455438464748), (+1.17120857057705592798090539891999365, +0.431914493170237268412299578355425166), (+1.08223235227043336809024539509788145, +0.627948980376790856109668677410971222), (+1.42807126214302443884234025764704191, +0.130555195205614131264164042581582232), (+1.91774494730929879225813766707848275, +0.832166480663524818664702701349366110E-1), (+1.58644463127193567570657814830463243, +0.193124865058398002678484804586840478), (+1.35315521578581405499030678263703839, +0.617963363721677230230082281572341946), (+1.17649691746090996039166651926309257, +0.936869741838245772122222739039922727E-1), (+1.94874118037427810794292694533116983, +0.449215194372801350118808629144104692), (+1.67842144106013773511790229202907436, +0.311035102044640983362067635328555281), (+1.47659166337073125128539659881489749, +0.290632240391755233352439019101996110), (+1.59821809293444628330003108195164067, +0.194619027984405776271984702664275775), (+1.19953445120781511990557709210056540, +0.905686281807819693980209180790922449), (+1.55215496080833622137991807331889597, +0.700313273367175937055831679997658906E-2), (+1.38081899119094841331707522152878202, +0.470573896111981947814523791904276504), (+1.99344421491011127855728196998484624, +0.114116625965946280864311744567087147), (+1.00514894098894420506062040979561323, +0.570613862765153769688412931057916146), (+1.55481569487327687434234186246137220, +0.740201494877947253256460579923658653), (+1.56808490912863441615765175520095058, +0.686984772852110827121488536744916880), (+1.56875015816152193794168107610506523, +0.998073312927874620457766541408259226), (+1.04172461968578260801611172997956330, +0.271373540620278902364224536614506802E-1), (+1.70549866501878235539802822848025042, +0.162747571140761748446051405816305525), (+1.53919308847537159086160166528261086, +0.839120486491714851735384986064765653E-2), (+1.02382026533491271221523692735023902, +0.875445735282397819966637133957309553), (+1.61020798193237238455014731395018105, +0.739449485025106063103915009079233332), (+1.88107596584790418057996464140541789, +0.880566113629971782637831524123082796), (+1.98836603686328659901036635008602256, +0.550250188868055878723978545737753485), (+1.79657308794844847152532969103131194, +0.470655288800361922540095200046199764), (+1.59092927227390504011851136915786729, +0.415768869572834368246457003449794836), (+1.46493038094188810005619828494653113, +0.749099499162676862304901994572140409), (+1.82749884717198736557689865983326563, +0.484065438239609982882384490779376200), (+1.72144100908017558599089651761014002, +0.123211440360094380227992929321984385), (+1.04829178513951566681869009582350868, +0.206061909982187779556596027879567625), (+1.13647114037268971542922052731153467, +0.500863841815267194816453182137875249), (+1.68444763124114836667891307700622432, +0.946646663802493577758544813534675554), (+1.66888649042016938489578611195494283, +0.199936489241091234105669683003737527), (+1.21353484002256256818787097033633277, +0.459037543191367903912978881106727766), (+1.78621038967552470073259513730884398, +0.770328023220083145485778715618112022), (+1.67627541029963213114705099025947847, +0.124031379666275188294646989669714594), (+1.06400560136343220030514440590874883, +0.452953624696142096717304677011429832E-1), (+1.18528417853997404354651155776779749, +0.450105662275895532061126816338396897), (+1.28891254948429073324258073296586815, +0.757148335497867107475253870186048248), (+1.70437825358973725341349532550679653, +0.473582771923528904722399284233673368E-1)
143
144atad = getFFTI(getFFTF(data))
145atad
146(+1.40471186408812471564801860528643838, +0.773367890446503403065055930384576020), (+1.17821608221282233446280488453100447, +0.783346603104181402784200179579938788), (+1.45100458590130725172175471195535312, +0.441558344805824260531784410346200686), (+1.74424582357469601254120392354866168, +0.565162910457872277399727708479363984), (+1.89085664281648365461423896301384595, +0.200216120476930208799662951434451851E-1), (+1.12509024640733975024441865359864563, +0.585924312127559353361322894598209977), (+1.19828241718783408061076107836096016, +0.271393863435568805390909877706587645), (+1.30417293919610666492682632523243370, +0.864512549530192817989594487812471509E-1), (+1.25036178149418546200145537766317643, +0.751386276746939771506093455210050189E-1), (+1.25655926557433455890937030565129622, +0.839924632345475856564195428095838848), (+1.73895469407709802390644512368838622, +0.226046405560753072942907839842108228), (+1.80175402703454864095008263464744777, +0.429923818569155026970076745368349284), (+1.25727501597652350111352758846153118, +0.236219559672885216139901461380669056), (+1.79250624279974043291583741896975859, +0.319166264560727864204477932591112997), (+1.09717834971222621272589517738768246, +0.996581624286958573620809008942539924), (+1.77618656388242408149941950642505526, +0.346507377086749616758906189919498413), (+1.40447853618614607893934188807097742, +0.397390294370814679552907710866914758), (+1.53449203779173784694519815579555580, +0.249854553217012639188733768418073703), (+1.01728493402237723520154267194473632, +0.792769130839436474009166025283655889), (+1.60803559273700812111270709345846883, +0.879381663987219118794422743668645690E-1), (+1.50623081959525153078580236227973308, +0.284119281379668889150571661056549977), (+1.91295702139527573800428615939827564, +0.657111399134962794919313473046620536), (+1.14375481216211683905407669086342655, +0.936826967755214014156439670567612542), (+1.05501064058360043432193867728147983, +0.609876037278653067813063510559376171), (+1.47574808025947223915677695154478870, +0.632762685447381487072523900847513280), (+1.53101150124223622188177758634947533, +0.160277689997034994515801398812815527), (+1.51658263546062999049517676390075439, +0.320456400607997500564795312765366862), (+1.18570231704948444438091227941668774, +0.660596290237074590150325359339076836), (+1.62165098032980552267701783389025798, +0.585343150970985453616808155273046704E-1), (+1.59536039180185534556347979568713584, +0.638757198797152780765950455438464941), (+1.17120857057705592798090539891999384, +0.431914493170237268412299578355425310), (+1.08223235227043336809024539509788145, +0.627948980376790856109668677410971510), (+1.42807126214302443884234025764704210, +0.130555195205614131264164042581582328), (+1.91774494730929879225813766707848333, +0.832166480663524818664702701349364545E-1), (+1.58644463127193567570657814830463243, +0.193124865058398002678484804586840478), (+1.35315521578581405499030678263703897, +0.617963363721677230230082281572342139), (+1.17649691746090996039166651926309257, +0.936869741838245772122222739039922365E-1), (+1.94874118037427810794292694533117060, +0.449215194372801350118808629144104644), (+1.67842144106013773511790229202907474, +0.311035102044640983362067635328555281), (+1.47659166337073125128539659881489788, +0.290632240391755233352439019101996207), (+1.59821809293444628330003108195164067, +0.194619027984405776271984702664275992), (+1.19953445120781511990557709210056540, +0.905686281807819693980209180790922738), (+1.55215496080833622137991807331889597, +0.700313273367175937055831679997686591E-2), (+1.38081899119094841331707522152878221, +0.470573896111981947814523791904276793), (+1.99344421491011127855728196998484662, +0.114116625965946280864311744567087172), (+1.00514894098894420506062040979561362, +0.570613862765153769688412931057916338), (+1.55481569487327687434234186246137239, +0.740201494877947253256460579923658749), (+1.56808490912863441615765175520095116, +0.686984772852110827121488536744917169), (+1.56875015816152193794168107610506523, +0.998073312927874620457766541408259130), (+1.04172461968578260801611172997956369, +0.271373540620278902364224536614503613E-1), (+1.70549866501878235539802822848025061, +0.162747571140761748446051405816305549), (+1.53919308847537159086160166528261143, +0.839120486491714851735384986064747296E-2), (+1.02382026533491271221523692735023921, +0.875445735282397819966637133957309649), (+1.61020798193237238455014731395018182, +0.739449485025106063103915009079233332), (+1.88107596584790418057996464140541827, +0.880566113629971782637831524123082989), (+1.98836603686328659901036635008602256, +0.550250188868055878723978545737753485), (+1.79657308794844847152532969103131194, +0.470655288800361922540095200046200245), (+1.59092927227390504011851136915786768, +0.415768869572834368246457003449795028), (+1.46493038094188810005619828494653113, +0.749099499162676862304901994572140891), (+1.82749884717198736557689865983326563, +0.484065438239609982882384490779376489), (+1.72144100908017558599089651761014002, +0.123211440360094380227992929321984481), (+1.04829178513951566681869009582350906, +0.206061909982187779556596027879567673), (+1.13647114037268971542922052731153505, +0.500863841815267194816453182137875442), (+1.68444763124114836667891307700622451, +0.946646663802493577758544813534676132), (+1.66888649042016938489578611195494283, +0.199936489241091234105669683003737575), (+1.21353484002256256818787097033633277, +0.459037543191367903912978881106727670), (+1.78621038967552470073259513730884379, +0.770328023220083145485778715618112118), (+1.67627541029963213114705099025947885, +0.124031379666275188294646989669714618), (+1.06400560136343220030514440590874883, +0.452953624696142096717304677011430916E-1), (+1.18528417853997404354651155776779768, +0.450105662275895532061126816338397041), (+1.28891254948429073324258073296586834, +0.757148335497867107475253870186048248), (+1.70437825358973725341349532550679653, +0.473582771923528904722399284233673488E-1), (-0.481482486096808963263994485646231830E-33, +0.481482486096808963263994485646231830E-34), (-0.385185988877447170611195588516985464E-33, +0.00000000000000000000000000000000000), (-0.288889491658085377958396691387739098E-33, -0.228704180895984257550397380681960119E-33), (-0.577778983316170755916793382775478196E-33, +0.00000000000000000000000000000000000), (-0.288889491658085377958396691387739098E-33, -0.168518870133883137142398069976181140E-33), (-0.288889491658085377958396691387739098E-33, +0.409260113182287618774395312799297055E-33), (-0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34), (-0.481482486096808963263994485646231830E-33, +0.264815367353244929795196967105427506E-33), (-0.192592994438723585305597794258492732E-33, -0.481482486096808963263994485646231830E-34), (-0.288889491658085377958396691387739098E-33, -0.240741243048404481631997242823115915E-34), (-0.192592994438723585305597794258492732E-33, -0.144444745829042688979198345693869549E-33), (-0.385185988877447170611195588516985464E-33, -0.120370621524202240815998621411557957E-34), (+0.00000000000000000000000000000000000, +0.168518870133883137142398069976181140E-33), (-0.288889491658085377958396691387739098E-33, +0.288889491658085377958396691387739098E-33), (-0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000), (-0.288889491658085377958396691387739098E-33, -0.962964972193617926527988971292463659E-34), (-0.481482486096808963263994485646231830E-33, -0.962964972193617926527988971292463659E-34), (-0.385185988877447170611195588516985464E-33, -0.722223729145213444895991728469347744E-34), (-0.192592994438723585305597794258492732E-33, -0.192592994438723585305597794258492732E-33), (-0.192592994438723585305597794258492732E-33, -0.192592994438723585305597794258492732E-33), (-0.385185988877447170611195588516985464E-33, -0.138426214752832576938398414623291651E-33), (-0.481482486096808963263994485646231830E-33, -0.962964972193617926527988971292463659E-34), (+0.00000000000000000000000000000000000, -0.481482486096808963263994485646231830E-34), (-0.674075480535532548569592279904724561E-33, -0.481482486096808963263994485646231830E-34), (+0.00000000000000000000000000000000000, -0.361111864572606722447995864234673872E-34), (-0.577778983316170755916793382775478196E-33, -0.361111864572606722447995864234673872E-34), (-0.385185988877447170611195588516985464E-33, -0.180555932286303361223997932117336936E-33), (-0.192592994438723585305597794258492732E-33, -0.481482486096808963263994485646231830E-34), (-0.288889491658085377958396691387739098E-33, +0.361111864572606722447995864234673872E-34), (-0.481482486096808963263994485646231830E-33, +0.144444745829042688979198345693869549E-33), (+0.962964972193617926527988971292463659E-34, +0.240741243048404481631997242823115915E-34), (-0.674075480535532548569592279904724561E-33, -0.962964972193617926527988971292463659E-34), (-0.481482486096808963263994485646231830E-33, -0.361111864572606722447995864234673872E-33), (-0.385185988877447170611195588516985464E-33, -0.144444745829042688979198345693869549E-33), (-0.962964972193617926527988971292463659E-34, -0.397223051029867394692795450658141259E-33), (-0.192592994438723585305597794258492732E-33, -0.120370621524202240815998621411557957E-33), (-0.481482486096808963263994485646231830E-33, +0.300926553810505602039996553528894894E-34), (-0.288889491658085377958396691387739098E-33, -0.962964972193617926527988971292463659E-34), (-0.192592994438723585305597794258492732E-33, -0.144444745829042688979198345693869549E-33), (-0.481482486096808963263994485646231830E-33, -0.192592994438723585305597794258492732E-33), (-0.962964972193617926527988971292463659E-34, -0.481482486096808963263994485646231830E-34), (-0.481482486096808963263994485646231830E-33, +0.162500339057673025101598138905603243E-33), (-0.481482486096808963263994485646231830E-33, -0.168518870133883137142398069976181140E-33), (-0.577778983316170755916793382775478196E-33, -0.872687006050466245915990005233795191E-34), (-0.385185988877447170611195588516985464E-33, +0.00000000000000000000000000000000000), (-0.577778983316170755916793382775478196E-33, +0.481482486096808963263994485646231830E-34), (-0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33), (-0.481482486096808963263994485646231830E-33, +0.481482486096808963263994485646231830E-34), (-0.481482486096808963263994485646231830E-33, -0.553704859011330307753593658493166604E-33), (-0.288889491658085377958396691387739098E-33, -0.337037740267766274284796139952362281E-33), (-0.962964972193617926527988971292463659E-34, -0.337037740267766274284796139952362281E-33), (-0.962964972193617926527988971292463659E-34, -0.312963615962925826121596415670050689E-33), (-0.481482486096808963263994485646231830E-33, -0.126389152600412352856798552482135855E-33), (-0.385185988877447170611195588516985464E-33, -0.228704180895984257550397380681960119E-33), (-0.192592994438723585305597794258492732E-33, -0.144444745829042688979198345693869549E-33), (-0.577778983316170755916793382775478196E-33, -0.529630734706489859590393934210855013E-33)
147reltol = sqrt(epsilon(1._TKC))
148reltol
149+0.138777878078144567552953958511352539E-16
150isClose(data, atad(1:size(data)), reltol = reltol)
151T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
152call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
153
154lenData = getUnifRand(5, 100)
155lenData
156+35
157data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
158data
159+1.64077425, +1.31350887, +1.38057327, +1.12450933, +1.09016371, +1.09216452, +1.21381617, +1.35346615, +1.48943758, +1.12773132, +1.61216545, +1.78998208, +1.28807294, +1.30540085, +1.43679655, +1.53183746, +1.24948668, +1.43202710, +1.99713361, +1.47781420, +1.69573283, +1.73120379, +1.69654655, +1.36673808, +1.45064592, +1.00294709, +1.23529625, +1.91218376, +1.27704263, +1.73860455, +1.61308408, +1.33075428, +1.02449560, +1.70694900, +1.67119145
160
161atad = getFFTI(getFFTF(data))
162atad
163+1.64077425, +1.31350887, +1.38057315, +1.12450910, +1.09016347, +1.09216452, +1.21381593, +1.35346603, +1.48943734, +1.12773120, +1.61216545, +1.78998196, +1.28807282, +1.30540097, +1.43679643, +1.53183746, +1.24948680, +1.43202710, +1.99713361, +1.47781420, +1.69573283, +1.73120356, +1.69654655, +1.36673808, +1.45064580, +1.00294685, +1.23529625, +1.91218376, +1.27704239, +1.73860431, +1.61308408, +1.33075440, +1.02449560, +1.70694888, +1.67119133, +0.178813934E-6, +0.596046448E-7, -0.119209290E-6, +0.238418579E-6, +0.178813934E-6, +0.596046448E-7, +0.119209290E-6, +0.596046448E-7, +0.119209290E-6, +0.119209290E-6, -0.119209290E-6, +0.596046448E-7, +0.00000000, -0.119209290E-6, +0.119209290E-6, -0.357627869E-6, -0.596046448E-7, -0.178813934E-6, +0.596046448E-7, +0.00000000, +0.596046448E-7, +0.00000000, +0.178813934E-6, -0.596046448E-7, +0.00000000, +0.119209290E-6, +0.298023224E-6, +0.00000000, -0.119209290E-6
164reltol = sqrt(epsilon(1._TKC))
165reltol
166+0.345266977E-3
167isClose(data, atad(1:size(data)), reltol = reltol)
168T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
169call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
170
171lenData = getUnifRand(5, 100)
172lenData
173+72
174data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
175data
176+1.0469202980402459, +1.5671269187724730, +1.2836451693064861, +1.6669532238941460, +1.7429042823978826, +1.2345433840494398, +1.6106664756853157, +1.3002479759738788, +1.0978697440007750, +1.7362317251582995, +1.7967770372556182, +1.1688043447492826, +1.7301550554684781, +1.1778332810598950, +1.9147471218938619, +1.0760660615877398, +1.3160646039488026, +1.1634810608973085, +1.3830522800086915, +1.5850307928397367, +1.9347635991536245, +1.0801649231749872, +1.9325201485973020, +1.9300219821794160, +1.7959453875680951, +1.3182275053766479, +1.8242800277296434, +1.9237955341059516, +1.8710402310548870, +1.9854952985471606, +1.5019612982548569, +1.9013189431290827, +1.2659156948847574, +1.2074377238789471, +1.3483089360294076, +1.5094640409654354, +1.2191749490272614, +1.0984846019458501, +1.4029269631557655, +1.5510870733334010, +1.7465207329024821, +1.0008642756111370, +1.2698360330623730, +1.0993214057086420, +1.6786810457830523, +1.7847571988591098, +1.7319928874338211, +1.1582288170384341, +1.3784551231687394, +1.2182873175790598, +1.4040150140440315, +1.6544121582208331, +1.9306701307339480, +1.9322832093548639, +1.6226965145916594, +1.6777078802720053, +1.6081761424908818, +1.4472885713007368, +1.5746631926305836, +1.3599965717354809, +1.2049857837692453, +1.9310139401138360, +1.2838285249272476, +1.5336702296609837, +1.2299580822846035, +1.3213556768444985, +1.4595613900314335, +1.7771157789404424, +1.9567753967246042, +1.4986319846332705, +1.3269539918346667, +1.4153765204098785
177
178atad = getFFTI(getFFTF(data))
179atad
180+1.0469202980402457, +1.5671269187724730, +1.2836451693064861, +1.6669532238941462, +1.7429042823978815, +1.2345433840494398, +1.6106664756853153, +1.3002479759738788, +1.0978697440007750, +1.7362317251582997, +1.7967770372556187, +1.1688043447492831, +1.7301550554684777, +1.1778332810598950, +1.9147471218938610, +1.0760660615877398, +1.3160646039488024, +1.1634810608973090, +1.3830522800086911, +1.5850307928397371, +1.9347635991536229, +1.0801649231749875, +1.9325201485973009, +1.9300219821794158, +1.7959453875680946, +1.3182275053766483, +1.8242800277296429, +1.9237955341059521, +1.8710402310548861, +1.9854952985471606, +1.5019612982548560, +1.9013189431290825, +1.2659156948847574, +1.2074377238789471, +1.3483089360294076, +1.5094640409654354, +1.2191749490272614, +1.0984846019458501, +1.4029269631557657, +1.5510870733334003, +1.7465207329024821, +1.0008642756111370, +1.2698360330623735, +1.0993214057086420, +1.6786810457830526, +1.7847571988591091, +1.7319928874338208, +1.1582288170384336, +1.3784551231687394, +1.2182873175790601, +1.4040150140440320, +1.6544121582208331, +1.9306701307339478, +1.9322832093548628, +1.6226965145916594, +1.6777078802720045, +1.6081761424908818, +1.4472885713007366, +1.5746631926305836, +1.3599965717354805, +1.2049857837692457, +1.9310139401138351, +1.2838285249272476, +1.5336702296609830, +1.2299580822846032, +1.3213556768444985, +1.4595613900314333, +1.7771157789404421, +1.9567753967246049, +1.4986319846332701, +1.3269539918346673, +1.4153765204098776, +0.0000000000000000, +0.11102230246251565E-15, +0.0000000000000000, -0.99920072216264089E-15, +0.77715611723760958E-15, -0.11102230246251565E-15, +0.55511151231257827E-15, -0.55511151231257827E-15, +0.22204460492503131E-15, -0.22204460492503131E-15, +0.33306690738754696E-15, -0.55511151231257827E-15, +0.88817841970012523E-15, +0.11102230246251565E-15, +0.55511151231257827E-15, -0.22204460492503131E-15, +0.44408920985006262E-15, -0.33306690738754696E-15, +0.44408920985006262E-15, -0.55511151231257827E-15, +0.77715611723760958E-15, -0.11102230246251565E-15, +0.88817841970012523E-15, +0.22204460492503131E-15, -0.11102230246251565E-15, +0.11102230246251565E-15, -0.11102230246251565E-15, -0.55511151231257827E-15, +0.0000000000000000, +0.44408920985006262E-15, +0.11102230246251565E-15, +0.22204460492503131E-15, +0.0000000000000000, +0.11102230246251565E-15, +0.0000000000000000, -0.55511151231257827E-15, -0.11102230246251565E-15, +0.55511151231257827E-15, +0.0000000000000000, +0.11102230246251565E-15, -0.33306690738754696E-15, +0.33306690738754696E-15, -0.33306690738754696E-15, -0.11102230246251565E-15, -0.44408920985006262E-15, +0.12212453270876722E-14, -0.33306690738754696E-15, +0.44408920985006262E-15, +0.22204460492503131E-15, +0.22204460492503131E-15, +0.44408920985006262E-15, +0.44408920985006262E-15, -0.55511151231257827E-15, +0.88817841970012523E-15, -0.11102230246251565E-15, +0.99920072216264089E-15
181reltol = sqrt(epsilon(1._TKC))
182reltol
183+0.14901161193847656E-7
184isClose(data, atad(1:size(data)), reltol = reltol)
185T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
186call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
187
188lenData = getUnifRand(5, 100)
189lenData
190+73
191data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
192data
193+1.01608431586407096159699283639793328, +1.03552821798737287180411486604366496, +1.21840183302802704116001852877602674, +1.28899709761500014389731799807454719, +1.98524278880313546182407824142597011, +1.52882637884494883481528632282769211, +1.81359698237705552723503068989188388, +1.24454153269108344137366064042196721, +1.46206452393263158264937813510827136, +1.92549428735304429919052547217482461, +1.58838140107138618733387337316136855, +1.53251158174735282604617583289829409, +1.54023644295307416248572713708650946, +1.20473532961261076025184010275955513, +1.37765464972088186112255959026746099, +1.66025199701808277047667469778683597, +1.63238648577201033491200863478961951, +1.52173565462089600092367295834619767, +1.56298624294813179670716741850518408, +1.42397758887342270323779783533730245, +1.49961061587969605760072198480889136, +1.09567401920083620190106598039803702, +1.45395591571922230232005295437666875, +1.84270178953986627174551050825589954, +1.51467903022557507354051659854979723, +1.31417685657939630390703294652234503, +1.53951199881151126805262933890145896, +1.00178259595460382498573844090242277, +1.99354581962280767195750359207209858, +1.06192594030696645555915797901826391, +1.29250217973051299476511983875360630, +1.87497767799239702047551631152144660, +1.08357519611053598820402189620998130, +1.05709583130011648657953697629970924, +1.51847124096904224842449929590333383, +1.13670350047539698554311395004509916, +1.32936438805681889850350837030180165, +1.26009662935072628906636655609254375, +1.74510117063951339821259927889131447, +1.86907557315050896688321474509413415, +1.60821419845957846050638489504248548, +1.71726080934637895843893485930982160, +1.13255399521037118559795160311809462, +1.73063230901165588796488559292171237, +1.21561685626331975196597762100289098, +1.14635517331597992054003811978670512, +1.10948191465077850256945531956015841, +1.16592599714590866698950651845080612, +1.00730938657432353757074917586406826, +1.24127694951120113410839932137001849, +1.87102335833307977198023195121506775, +1.21267272414051801342913578020544300, +1.22403280079873404492209136766156890, +1.52984838523996435803075397777293162, +1.02147784616848517084500623427336004, +1.48999132649752658718731507036426589, +1.98801729137848303777072187532968520, +1.47771526725128962250987663730584777, +1.69246692986216098451573053052192033, +1.77358967452366097522581408706717441, +1.81844636590986932959850918371137938, +1.46185742561979967605111374961683252, +1.16531469937007467811044606905198471, +1.00457336459020073407317371790817879, +1.19577690509222448665179227715404366, +1.21786908254790005359201814232078697, +1.80350213649171994388082043749020016, +1.59343726953962983374589156804629104, +1.80828640088197661673883683968614690, +1.98094530302811237099952056333825782, +1.80418294472961454586221748926494432, +1.99637385639319544015342022417021231, +1.28448376042798806124420090283788478
194
195atad = getFFTI(getFFTF(data))
196atad
197+1.01608431586407096159699283639793328, +1.03552821798737287180411486604366496, +1.21840183302802704116001852877602655, +1.28899709761500014389731799807454719, +1.98524278880313546182407824142597011, +1.52882637884494883481528632282769172, +1.81359698237705552723503068989188350, +1.24454153269108344137366064042196721, +1.46206452393263158264937813510827136, +1.92549428735304429919052547217482499, +1.58838140107138618733387337316136893, +1.53251158174735282604617583289829447, +1.54023644295307416248572713708650984, +1.20473532961261076025184010275955475, +1.37765464972088186112255959026746118, +1.66025199701808277047667469778683597, +1.63238648577201033491200863478961913, +1.52173565462089600092367295834619767, +1.56298624294813179670716741850518408, +1.42397758887342270323779783533730245, +1.49961061587969605760072198480889097, +1.09567401920083620190106598039803663, +1.45395591571922230232005295437666836, +1.84270178953986627174551050825589954, +1.51467903022557507354051659854979704, +1.31417685657939630390703294652234503, +1.53951199881151126805262933890145896, +1.00178259595460382498573844090242297, +1.99354581962280767195750359207209858, +1.06192594030696645555915797901826391, +1.29250217973051299476511983875360630, +1.87497767799239702047551631152144737, +1.08357519611053598820402189620998130, +1.05709583130011648657953697629970885, +1.51847124096904224842449929590333403, +1.13670350047539698554311395004509916, +1.32936438805681889850350837030180184, +1.26009662935072628906636655609254356, +1.74510117063951339821259927889131409, +1.86907557315050896688321474509413377, +1.60821419845957846050638489504248548, +1.71726080934637895843893485930982140, +1.13255399521037118559795160311809462, +1.73063230901165588796488559292171256, +1.21561685626331975196597762100289118, +1.14635517331597992054003811978670493, +1.10948191465077850256945531956015841, +1.16592599714590866698950651845080612, +1.00730938657432353757074917586406826, +1.24127694951120113410839932137001791, +1.87102335833307977198023195121506794, +1.21267272414051801342913578020544300, +1.22403280079873404492209136766156890, +1.52984838523996435803075397777293124, +1.02147784616848517084500623427336004, +1.48999132649752658718731507036426569, +1.98801729137848303777072187532968500, +1.47771526725128962250987663730584797, +1.69246692986216098451573053052192033, +1.77358967452366097522581408706717499, +1.81844636590986932959850918371137900, +1.46185742561979967605111374961683252, +1.16531469937007467811044606905198452, +1.00457336459020073407317371790817898, +1.19577690509222448665179227715404366, +1.21786908254790005359201814232078697, +1.80350213649171994388082043749019997, +1.59343726953962983374589156804629104, +1.80828640088197661673883683968614709, +1.98094530302811237099952056333825782, +1.80418294472961454586221748926494413, +1.99637385639319544015342022417021231, +1.28448376042798806124420090283788440, -0.385185988877447170611195588516985464E-33, -0.577778983316170755916793382775478196E-33, -0.577778983316170755916793382775478196E-33, -0.962964972193617926527988971292463659E-34, +0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000, +0.00000000000000000000000000000000000, +0.481482486096808963263994485646231830E-33, -0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34, +0.481482486096808963263994485646231830E-33, -0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34, +0.288889491658085377958396691387739098E-33, -0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000, -0.962964972193617926527988971292463659E-34, -0.577778983316170755916793382775478196E-33, -0.962964972193617926527988971292463659E-34, -0.385185988877447170611195588516985464E-33, -0.962964972193617926527988971292463659E-34, -0.385185988877447170611195588516985464E-33, -0.962964972193617926527988971292463659E-34, +0.288889491658085377958396691387739098E-33, -0.288889491658085377958396691387739098E-33, +0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000, +0.962964972193617926527988971292463659E-34, +0.962964972193617926527988971292463659E-34, +0.288889491658085377958396691387739098E-33, -0.288889491658085377958396691387739098E-33, +0.192592994438723585305597794258492732E-33, -0.288889491658085377958396691387739098E-33, +0.00000000000000000000000000000000000, -0.385185988877447170611195588516985464E-33, +0.00000000000000000000000000000000000, -0.288889491658085377958396691387739098E-33, +0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000, +0.481482486096808963263994485646231830E-33, -0.385185988877447170611195588516985464E-33, +0.385185988877447170611195588516985464E-33, -0.385185988877447170611195588516985464E-33, +0.385185988877447170611195588516985464E-33, -0.577778983316170755916793382775478196E-33, +0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33, -0.385185988877447170611195588516985464E-33, -0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000, -0.192592994438723585305597794258492732E-33, -0.288889491658085377958396691387739098E-33, -0.192592994438723585305597794258492732E-33
198reltol = sqrt(epsilon(1._TKC))
199reltol
200+0.138777878078144567552953958511352539E-16
201isClose(data, atad(1:size(data)), reltol = reltol)
202T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
203call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
204
205lenData = getUnifRand(5, 100)
206lenData
207+93
208data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
209data
210(+1.38919127, +0.630354047), (+1.40767360, +0.854880869), (+1.42012215, +0.678520381), (+1.18788683, +0.102995217), (+1.66231084, +0.352772415), (+1.44508410, +0.670968950), (+1.34428072, +0.256808460), (+1.03617144, +0.859856069), (+1.11900306, +0.594530523), (+1.20559251, +0.938521028E-1), (+1.62595737, +0.758677721), (+1.05605924, +0.106752396), (+1.32667708, +0.935920179), (+1.63973641, +0.189479291), (+1.40140522, +0.425596595), (+1.35698843, +0.119452953), (+1.11730039, +0.729428828), (+1.37874889, +0.610478759), (+1.42239571, +0.791986048), (+1.83950782, +0.256231368), (+1.20115113, +0.195804536), (+1.25475883, +0.580542922), (+1.16605437, +0.170020819), (+1.69179606, +0.274968743E-1), (+1.88789725, +0.920086503), (+1.29527164, +0.341549158), (+1.12573051, +0.859859586), (+1.74716973, +0.891868353), (+1.65257049, +0.490244925), (+1.63059390, +0.941591322), (+1.89013278, +0.265009403), (+1.31012130, +0.725642741), (+1.12356901, +0.717469692), (+1.26690817, +0.799664855), (+1.56807637, +0.700016260), (+1.34525812, +0.323054075), (+1.09284925, +0.790795326), (+1.16457295, +0.754290581), (+1.99964046, +0.524691343), (+1.96949148, +0.998297989), (+1.43309999, +0.173872888), (+1.33138871, +0.628482044), (+1.57205200, +0.187024474E-1), (+1.28419304, +0.104768872E-1), (+1.53074110, +0.754094899), (+1.34042168, +0.337041974), (+1.42982817, +0.442082345), (+1.11828029, +0.443270743), (+1.03489280, +0.649390996), (+1.35469913, +0.664347827), (+1.42488432, +0.585805774), (+1.39315891, +0.789688587), (+1.71746755, +0.950212061), (+1.40241623, +0.984778166), (+1.45779586, +0.518542171), (+1.64808583, +0.448924363), (+1.21273386, +0.977785170), (+1.58947265, +0.399725974), (+1.09541094, +0.259927928), (+1.76321065, +0.794225812), (+1.00823963, +0.209718168), (+1.60140598, +0.673431277), (+1.31545615, +0.321893990), (+1.25248754, +0.516058207), (+1.79172754, +0.473593414), (+1.42637599, +0.306530833), (+1.04344034, +0.199502945), (+1.12431884, +0.568029821), (+1.08450055, +0.962220490), (+1.92142868, +0.177489638), (+1.53700137, +0.503384829), (+1.43104362, +0.106481194), (+1.87198293, +0.277397394), (+1.33977747, +0.867877424), (+1.31008339, +0.859255016), (+1.28180671, +0.696518004), (+1.63233519, +0.305627584E-1), (+1.12708592, +0.879350185), (+1.41111088, +0.203943312), (+1.81500685, +0.105926514), (+1.37425995, +0.755079269), (+1.45158029, +0.968418360), (+1.18404055, +0.226756990), (+1.61029983, +0.582816303), (+1.59747612, +0.272536516), (+1.75725484, +0.298794568), (+1.74722004, +0.141281426), (+1.57569242, +0.546253443), (+1.56729126, +0.515474916), (+1.56598294, +0.301226676), (+1.02421069, +0.588426590E-1), (+1.81464481, +0.343426168), (+1.09459376, +0.914171994)
211
212atad = getFFTI(getFFTF(data))
213atad
214(+1.38919139, +0.630353987), (+1.40767360, +0.854880929), (+1.42012191, +0.678520441), (+1.18788660, +0.102995262), (+1.66231084, +0.352772117), (+1.44508386, +0.670968771), (+1.34428036, +0.256808311), (+1.03617120, +0.859855890), (+1.11900306, +0.594530463), (+1.20559251, +0.938521326E-1), (+1.62595749, +0.758677721), (+1.05605924, +0.106752455), (+1.32667720, +0.935920119), (+1.63973641, +0.189479351), (+1.40140522, +0.425596476), (+1.35698831, +0.119453155), (+1.11730051, +0.729428709), (+1.37874877, +0.610478759), (+1.42239547, +0.791985929), (+1.83950734, +0.256231546), (+1.20115137, +0.195804521), (+1.25475860, +0.580542803), (+1.16605401, +0.170020819), (+1.69179571, +0.274968743E-1), (+1.88789725, +0.920086622), (+1.29527164, +0.341549277), (+1.12573040, +0.859859467), (+1.74716938, +0.891868591), (+1.65257049, +0.490244895), (+1.63059354, +0.941591382), (+1.89013243, +0.265009433), (+1.31012118, +0.725642741), (+1.12356925, +0.717469513), (+1.26690805, +0.799664736), (+1.56807613, +0.700016022), (+1.34525776, +0.323054016), (+1.09284961, +0.790795088), (+1.16457295, +0.754290402), (+1.99964035, +0.524690986), (+1.96949148, +0.998297691), (+1.43309999, +0.173872754), (+1.33138847, +0.628481984), (+1.57205200, +0.187022686E-1), (+1.28419280, +0.104767531E-1), (+1.53074098, +0.754094720), (+1.34042144, +0.337041855), (+1.42982805, +0.442082256), (+1.11828017, +0.443270713), (+1.03489280, +0.649390936), (+1.35469890, +0.664347768), (+1.42488408, +0.585805476), (+1.39315867, +0.789688468), (+1.71746778, +0.950211942), (+1.40241599, +0.984777987), (+1.45779562, +0.518541992), (+1.64808547, +0.448924214), (+1.21273386, +0.977784991), (+1.58947253, +0.399726033), (+1.09541094, +0.259927899), (+1.76321030, +0.794225693), (+1.00823975, +0.209718034), (+1.60140562, +0.673431277), (+1.31545579, +0.321893811), (+1.25248742, +0.516058087), (+1.79172754, +0.473593414), (+1.42637587, +0.306530863), (+1.04344034, +0.199502915), (+1.12431872, +0.568029761), (+1.08450055, +0.962220550), (+1.92142868, +0.177489609), (+1.53700125, +0.503384709), (+1.43104339, +0.106481165), (+1.87198281, +0.277397543), (+1.33977735, +0.867877364), (+1.31008339, +0.859255075), (+1.28180635, +0.696518004), (+1.63233507, +0.305629969E-1), (+1.12708569, +0.879350185), (+1.41111076, +0.203943491), (+1.81500661, +0.105926670), (+1.37425995, +0.755079091), (+1.45157993, +0.968418241), (+1.18404031, +0.226756990), (+1.61029959, +0.582816124), (+1.59747624, +0.272536337), (+1.75725460, +0.298794657), (+1.74721980, +0.141281456), (+1.57569230, +0.546253383), (+1.56729102, +0.515475035), (+1.56598258, +0.301226616), (+1.02421057, +0.588425696E-1), (+1.81464446, +0.343426228), (+1.09459352, +0.914172053), (+0.596046448E-7, -0.149011612E-6), (+0.596046448E-7, +0.596046448E-7), (+0.119209290E-6, +0.00000000), (+0.596046448E-7, +0.596046448E-7), (-0.119209290E-6, -0.298023224E-7), (+0.178813934E-6, +0.298023224E-6), (+0.178813934E-6, +0.342726707E-6), (+0.119209290E-6, +0.208616257E-6), (+0.00000000, +0.119209290E-6), (-0.119209290E-6, +0.357627869E-6), (+0.596046448E-7, +0.387430191E-6), (+0.596046448E-7, -0.447034836E-7), (-0.178813934E-6, +0.00000000), (+0.178813934E-6, +0.596046448E-7), (+0.00000000, +0.163912773E-6), (-0.596046448E-7, +0.149011612E-6), (-0.596046448E-7, -0.596046448E-7), (-0.119209290E-6, +0.149011612E-6), (+0.00000000, +0.894069672E-7), (+0.238418579E-6, +0.298023224E-7), (+0.00000000, +0.298023224E-7), (+0.119209290E-6, +0.298023224E-6), (+0.596046448E-7, +0.149011612E-6), (+0.298023224E-6, +0.596046448E-7), (+0.00000000, +0.00000000), (-0.596046448E-7, +0.596046448E-7), (+0.119209290E-6, +0.119209290E-6), (+0.476837158E-6, -0.119209290E-6), (+0.178813934E-6, -0.163912773E-6), (+0.119209290E-6, -0.298023224E-7), (+0.00000000, +0.298023224E-7), (+0.238418579E-6, -0.163912773E-6), (+0.596046448E-7, -0.298023224E-7), (-0.119209290E-6, +0.149011612E-7), (+0.596046448E-7, +0.894069672E-7)
215reltol = sqrt(epsilon(1._TKC))
216reltol
217+0.345266977E-3
218isClose(data, atad(1:size(data)), reltol = reltol)
219T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
220call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
221
222lenData = getUnifRand(5, 100)
223lenData
224+76
225data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
226data
227(+1.8325682687735436, +0.67775962377363785), (+1.4175577225578095, +0.12230519662529560), (+1.7837420532068857, +0.67265609690002170E-1), (+1.2195810440916177, +0.69029602513994404), (+1.8593075409892927, +0.91233667617527381), (+1.4371156025219605, +0.24541059058676606), (+1.1797937024102239, +0.40590447079752556), (+1.0697031779794135, +0.30300422496437385), (+1.1074465129141107, +0.15501844810745091), (+1.6778858817720259, +0.35270559630436915), (+1.5684703183979711, +0.21423043855200574), (+1.4215611313048850, +0.45680358108985997), (+1.2661978734948589, +0.82665846883036742), (+1.4180417207920835, +0.86852130785285730), (+1.3958454386722665, +0.51345658040840314), (+1.1268378165212689, +0.40935296448060454), (+1.5495262167253530, +0.15892041066272544), (+1.9705625709861461, +0.38150762434569829E-1), (+1.0267006814471440, +0.49803150693929998), (+1.7833412797578645, +0.54269659315292851), (+1.6277591315032460, +0.74409393387338585), (+1.3155047519603227, +0.52227614790097265), (+1.2729532459934942, +0.41939208736962075), (+1.3399210743216350, +0.17512919892790035), (+1.6622125476213365, +0.26651693357784734), (+1.1196529018013541, +0.50131072978524760), (+1.6413045917598743, +0.43593319808087727), (+1.5263542545866882, +0.81436957979948732), (+1.8290786563228834, +0.88643343867439550), (+1.5679247517588903, +0.32734731902722580), (+1.2686868742534547, +0.69297117817377485), (+1.3255834404002536, +0.22447191468757954), (+1.7489070244212961, +0.38732117686206868), (+1.2616101048215977, +0.23729170389819199), (+1.4489214934204950, +0.32515789213140878), (+1.2728367705741557, +0.72370446978544556E-1), (+1.7464189598431803, +0.31089282083620162E-1), (+1.3350788733173993, +0.30281014954140750), (+1.8105901171258456, +0.44999693037251398), (+1.8156439385857821, +0.22293628845644642), (+1.9218338487275584, +0.76755620422420567), (+1.7544011530692174, +0.83532899447114783), (+1.0476838747677346, +0.83697537074719230), (+1.8039990476117027, +0.87789658725486808), (+1.5271714575442497, +0.94560103611542357), (+1.0760061044666409, +0.15959159432009762), (+1.8087814973458050, +0.44331990921722608), (+1.3455843203417504, +0.88991519440181543), (+1.1293150216906709, +0.39316111484118987), (+1.2308454123078914, +0.19442838287469633), (+1.0863216955593424, +0.27090017371638320), (+1.2472706257668107, +0.13031539131901315), (+1.7929091049687602, +0.45373004614418599), (+1.5844524142248999, +0.81797688406907232), (+1.5508697254148425, +0.35778773980192069), (+1.4911867971682895, +0.48666622592833020), (+1.1226528066807457, +0.81609104912569930), (+1.8687236005394696, +0.70969137539536442), (+1.1062833220123167, +0.64166582114762138), (+1.8543391846074053, +0.58036581308932134), (+1.0955766986392343, +0.40582833622671655), (+1.0839413521566832, +0.17320879381527488), (+1.7479870327996012, +0.15098126196785033), (+1.1413779476257571, +0.52712919244191347), (+1.9371684323269827, +0.73555466315919127), (+1.7600086523992324, +0.13530656841369937), (+1.9280339254459176, +0.61732780905448514), (+1.0125447153612903, +0.52200277296746933), (+1.9107702933732402, +0.20233920550076390), (+1.1538471284997462, +0.33305396005849763), (+1.2772750094433849, +0.87626799052500681), (+1.0156442603487508, +0.75553241625717116), (+1.0206397386447099, +0.18861277874570603), (+1.1700992102116274, +0.15447833209727846), (+1.7201034987983563, +0.57925669528415014), (+1.3683946495701638, +0.49847528701197208)
228
229atad = getFFTI(getFFTF(data))
230atad
231(+1.8325682687735434, +0.67775962377363785), (+1.4175577225578095, +0.12230519662529597), (+1.7837420532068855, +0.67265609690002282E-1), (+1.2195810440916177, +0.69029602513994415), (+1.8593075409892923, +0.91233667617527381), (+1.4371156025219602, +0.24541059058676618), (+1.1797937024102234, +0.40590447079752578), (+1.0697031779794135, +0.30300422496437407), (+1.1074465129141109, +0.15501844810745111), (+1.6778858817720259, +0.35270559630436948), (+1.5684703183979709, +0.21423043855200619), (+1.4215611313048848, +0.45680358108986024), (+1.2661978734948587, +0.82665846883036764), (+1.4180417207920832, +0.86852130785285753), (+1.3958454386722661, +0.51345658040840314), (+1.1268378165212689, +0.40935296448060465), (+1.5495262167253527, +0.15892041066272561), (+1.9705625709861461, +0.38150762434570031E-1), (+1.0267006814471435, +0.49803150693930009), (+1.7833412797578641, +0.54269659315292840), (+1.6277591315032458, +0.74409393387338540), (+1.3155047519603225, +0.52227614790097243), (+1.2729532459934938, +0.41939208736962053), (+1.3399210743216345, +0.17512919892790024), (+1.6622125476213365, +0.26651693357784761), (+1.1196529018013539, +0.50131072978524749), (+1.6413045917598739, +0.43593319808087727), (+1.5263542545866879, +0.81436957979948743), (+1.8290786563228829, +0.88643343867439550), (+1.5679247517588903, +0.32734731902722569), (+1.2686868742534541, +0.69297117817377463), (+1.3255834404002531, +0.22447191468757938), (+1.7489070244212961, +0.38732117686206835), (+1.2616101048215977, +0.23729170389819182), (+1.4489214934204950, +0.32515789213140861), (+1.2728367705741555, +0.72370446978544223E-1), (+1.7464189598431799, +0.31089282083619885E-1), (+1.3350788733173993, +0.30281014954140750), (+1.8105901171258449, +0.44999693037251343), (+1.8156439385857817, +0.22293628845644606), (+1.9218338487275579, +0.76755620422420567), (+1.7544011530692172, +0.83532899447114795), (+1.0476838747677342, +0.83697537074719208), (+1.8039990476117025, +0.87789658725486797), (+1.5271714575442492, +0.94560103611542301), (+1.0760061044666409, +0.15959159432009745), (+1.8087814973458043, +0.44331990921722575), (+1.3455843203417501, +0.88991519440181499), (+1.1293150216906709, +0.39316111484118954), (+1.2308454123078916, +0.19442838287469610), (+1.0863216955593420, +0.27090017371638275), (+1.2472706257668105, +0.13031539131901299), (+1.7929091049687600, +0.45373004614418549), (+1.5844524142249001, +0.81797688406907210), (+1.5508697254148422, +0.35778773980192025), (+1.4911867971682893, +0.48666622592832964), (+1.1226528066807457, +0.81609104912569896), (+1.8687236005394696, +0.70969137539536431), (+1.1062833220123167, +0.64166582114762094), (+1.8543391846074049, +0.58036581308932089), (+1.0955766986392343, +0.40582833622671599), (+1.0839413521566832, +0.17320879381527454), (+1.7479870327996005, +0.15098126196784953), (+1.1413779476257571, +0.52712919244191281), (+1.9371684323269827, +0.73555466315919138), (+1.7600086523992324, +0.13530656841369942), (+1.9280339254459171, +0.61732780905448503), (+1.0125447153612899, +0.52200277296746922), (+1.9107702933732402, +0.20233920550076362), (+1.1538471284997462, +0.33305396005849730), (+1.2772750094433847, +0.87626799052500626), (+1.0156442603487510, +0.75553241625717082), (+1.0206397386447097, +0.18861277874570584), (+1.1700992102116268, +0.15447833209727846), (+1.7201034987983561, +0.57925669528414958), (+1.3683946495701633, +0.49847528701197180), (+0.0000000000000000, -0.11102230246251565E-15), (+0.22204460492503131E-15, -0.49960036108132044E-15), (-0.11102230246251565E-15, -0.33306690738754696E-15), (+0.33306690738754696E-15, -0.24980018054066022E-15), (+0.22204460492503131E-15, -0.27755575615628914E-15), (+0.0000000000000000, -0.35388358909926865E-15), (+0.0000000000000000, -0.19428902930940239E-15), (-0.11102230246251565E-15, -0.16653345369377348E-15), (+0.11102230246251565E-15, +0.55511151231257827E-16), (+0.22204460492503131E-15, -0.11102230246251565E-15), (+0.33306690738754696E-15, +0.30531133177191805E-15), (+0.44408920985006262E-15, -0.41633363423443370E-16), (-0.11102230246251565E-15, -0.33306690738754696E-15), (-0.11102230246251565E-15, -0.11102230246251565E-15), (+0.11102230246251565E-15, -0.30531133177191805E-15), (+0.22204460492503131E-15, -0.27755575615628914E-15), (+0.22204460492503131E-15, -0.55511151231257827E-16), (+0.11102230246251565E-15, +0.11102230246251565E-15), (+0.22204460492503131E-15, +0.16653345369377348E-15), (+0.33306690738754696E-15, +0.22204460492503131E-15), (+0.0000000000000000, +0.19428902930940239E-15), (-0.11102230246251565E-15, +0.41633363423443370E-16), (-0.11102230246251565E-15, +0.27755575615628914E-15), (+0.11102230246251565E-15, +0.0000000000000000), (+0.11102230246251565E-15, +0.49960036108132044E-15), (+0.22204460492503131E-15, +0.55511151231257827E-16), (-0.11102230246251565E-15, +0.36082248300317588E-15), (+0.11102230246251565E-15, +0.41633363423443370E-15), (-0.11102230246251565E-15, +0.22204460492503131E-15), (-0.22204460492503131E-15, +0.0000000000000000), (-0.22204460492503131E-15, -0.55511151231257827E-16), (-0.22204460492503131E-15, -0.11102230246251565E-15), (+0.0000000000000000, +0.44408920985006262E-15), (+0.22204460492503131E-15, +0.55511151231257827E-16), (+0.11102230246251565E-15, +0.19428902930940239E-15), (+0.22204460492503131E-15, +0.11102230246251565E-15), (+0.22204460492503131E-15, +0.33306690738754696E-15), (+0.22204460492503131E-15, +0.0000000000000000), (+0.0000000000000000, +0.19428902930940239E-15), (+0.22204460492503131E-15, +0.55511151231257827E-16), (+0.22204460492503131E-15, +0.16653345369377348E-15), (+0.22204460492503131E-15, +0.11102230246251565E-15), (+0.22204460492503131E-15, +0.47184478546569153E-15), (+0.22204460492503131E-15, +0.44408920985006262E-15), (-0.11102230246251565E-15, +0.27755575615628914E-15), (+0.22204460492503131E-15, +0.0000000000000000), (+0.0000000000000000, +0.44408920985006262E-15), (+0.33306690738754696E-15, +0.22204460492503131E-15), (+0.0000000000000000, +0.66613381477509392E-15), (+0.33306690738754696E-15, +0.56898930012039273E-15), (+0.11102230246251565E-15, +0.10269562977782698E-14), (+0.22204460492503131E-15, +0.72164496600635175E-15)
232reltol = sqrt(epsilon(1._TKC))
233reltol
234+0.14901161193847656E-7
235isClose(data, atad(1:size(data)), reltol = reltol)
236T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
237call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
238
239lenData = getUnifRand(5, 100)
240lenData
241+24
242data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
243data
244(+1.90038475265351274006947214487914995, +0.931015365611170355402940824655361549), (+1.36274099302431984931167815621436674, +0.352305122247169483587989503654592770), (+1.48093971261837231216048613504705960, +0.409769660851986186503949855593671458), (+1.52765709549501253252885353248702072, +0.223439058800303167242740836169313377E-1), (+1.25187539031354429159808083198874815, +0.341952406668294638303976063045995868), (+1.16946138486443291478525423770469399, +0.170072304401603759599379724037706579), (+1.98171935960598374588164853713549237, +0.556569013118532738501669386801707364), (+1.52057940005502078942082934130167794, +0.741418890085342689715455477105738380), (+1.23157580499150570940514984718713628, +0.378688225170589998171895368906379699), (+1.67869182971689726610741093881375419, +0.468392605938416656688748021165506247), (+1.56693926488432282461464523540226296, +0.840896931470246779976611846810766988), (+1.94796123653143125648574634380813348, +0.147473438198581699694432199173352662), (+1.46103088687126179116086035858043808, +0.175100901889548793322262888212214598), (+1.98935202885619697322435829831826267, +0.443689202805046840610924215586878095), (+1.83641924437805052611969012292035477, +0.248929622308812437546349846810134012), (+1.19866295671416643207214450404356440, +0.950606139187932690299106217459546680), (+1.71044287019534955825011944603878207, +0.166755812545061754621386408814121231), (+1.52221932850595395058087793804472067, +0.329146202217088785082267571053795000), (+1.77211947775105918860974056270986873, +0.173498609893487300702438790852179543), (+1.23688519287203869926389962691972614, +0.979184811102620784215569403674256609), (+1.05096970910657432871423609059078167, +0.355142560834625394711012889484521038), (+1.98926674364133912503355722498981722, +0.364886879380472739591984770196854444), (+1.86210331127544543104392455755870645, +0.718461019812048478523388938445543432), (+1.01223748536762982366959606933719224, +0.501092752026656390895375865690910058)
245
246atad = getFFTI(getFFTF(data))
247atad
248(+1.90038475265351274006947214487915014, +0.931015365611170355402940824655361549), (+1.36274099302431984931167815621436674, +0.352305122247169483587989503654592962), (+1.48093971261837231216048613504705999, +0.409769660851986186503949855593671362), (+1.52765709549501253252885353248702034, +0.223439058800303167242740836169311451E-1), (+1.25187539031354429159808083198874815, +0.341952406668294638303976063045995965), (+1.16946138486443291478525423770469399, +0.170072304401603759599379724037706482), (+1.98171935960598374588164853713549257, +0.556569013118532738501669386801707460), (+1.52057940005502078942082934130167755, +0.741418890085342689715455477105738284), (+1.23157580499150570940514984718713628, +0.378688225170589998171895368906379747), (+1.67869182971689726610741093881375419, +0.468392605938416656688748021165506247), (+1.56693926488432282461464523540226296, +0.840896931470246779976611846810767084), (+1.94796123653143125648574634380813309, +0.147473438198581699694432199173352662), (+1.46103088687126179116086035858043788, +0.175100901889548793322262888212214598), (+1.98935202885619697322435829831826229, +0.443689202805046840610924215586878047), (+1.83641924437805052611969012292035477, +0.248929622308812437546349846810133988), (+1.19866295671416643207214450404356382, +0.950606139187932690299106217459546873), (+1.71044287019534955825011944603878226, +0.166755812545061754621386408814121231), (+1.52221932850595395058087793804472067, +0.329146202217088785082267571053795000), (+1.77211947775105918860974056270986911, +0.173498609893487300702438790852179615), (+1.23688519287203869926389962691972575, +0.979184811102620784215569403674256802), (+1.05096970910657432871423609059078187, +0.355142560834625394711012889484520942), (+1.98926674364133912503355722498981741, +0.364886879380472739591984770196854444), (+1.86210331127544543104392455755870684, +0.718461019812048478523388938445543914), (+1.01223748536762982366959606933719224, +0.501092752026656390895375865690910058), (+0.192592994438723585305597794258492732E-33, +0.481482486096808963263994485646231830E-34), (+0.481482486096808963263994485646231830E-33, +0.240741243048404481631997242823115915E-34), (+0.00000000000000000000000000000000000, -0.481482486096808963263994485646231830E-34), (-0.481482486096808963263994485646231830E-33, -0.962964972193617926527988971292463659E-34), (-0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000), (-0.962964972193617926527988971292463659E-34, +0.144444745829042688979198345693869549E-33), (-0.192592994438723585305597794258492732E-33, -0.361111864572606722447995864234673872E-33), (-0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34)
249reltol = sqrt(epsilon(1._TKC))
250reltol
251+0.138777878078144567552953958511352539E-16
252isClose(data, atad(1:size(data)), reltol = reltol)
253T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
254call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
255
256lenData = getUnifRand(5, 100)
257lenData
258+78
259data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
260data
261+1.87355447, +1.18803298, +1.90458894, +1.95548213, +1.32723188, +1.61850119, +1.24183965, +1.10411859, +1.15765285, +1.19541609, +1.71432507, +1.06731009, +1.16102004, +1.23536468, +1.15841532, +1.69408131, +1.70577836, +1.56596828, +1.08198738, +1.51424813, +1.24627924, +1.37810922, +1.57856083, +1.45868921, +1.34122729, +1.70949435, +1.36588931, +1.03205609, +1.78368163, +1.63032126, +1.66371036, +1.20857978, +1.81461382, +1.48999822, +1.52001667, +1.14139891, +1.09607708, +1.38150752, +1.74759293, +1.79149580, +1.90747857, +1.83282518, +1.64267731, +1.90711880, +1.16602814, +1.34560978, +1.36227298, +1.24705052, +1.96749735, +1.20683932, +1.10119462, +1.66112149, +1.67390251, +1.28648138, +1.67919457, +1.51389205, +1.41990900, +1.04526889, +1.42823982, +1.48181593, +1.15595150, +1.75919116, +1.86390853, +1.01595485, +1.77397776, +1.37965977, +1.34115529, +1.37822616, +1.14347386, +1.26048982, +1.24500847, +1.42045081, +1.07995272, +1.09301138, +1.38167453, +1.41207516, +1.45594001, +1.35965288
262
263atad = getFFTI(getFFTF(data))
264atad
265+1.87355435, +1.18803287, +1.90458858, +1.95548213, +1.32723165, +1.61850095, +1.24183917, +1.10411823, +1.15765285, +1.19541597, +1.71432519, +1.06731033, +1.16101992, +1.23536444, +1.15841532, +1.69408107, +1.70577860, +1.56596828, +1.08198726, +1.51424801, +1.24627912, +1.37810922, +1.57856059, +1.45868921, +1.34122705, +1.70949459, +1.36588931, +1.03205633, +1.78368139, +1.63032138, +1.66371012, +1.20857990, +1.81461406, +1.48999822, +1.52001667, +1.14139867, +1.09607720, +1.38150728, +1.74759293, +1.79149556, +1.90747857, +1.83282518, +1.64267731, +1.90711880, +1.16602826, +1.34560966, +1.36227310, +1.24705052, +1.96749723, +1.20683932, +1.10119450, +1.66112137, +1.67390227, +1.28648114, +1.67919433, +1.51389194, +1.41990888, +1.04526877, +1.42823946, +1.48181593, +1.15595126, +1.75919080, +1.86390829, +1.01595497, +1.77397764, +1.37965989, +1.34115517, +1.37822616, +1.14347386, +1.26048970, +1.24500871, +1.42045081, +1.07995248, +1.09301138, +1.38167453, +1.41207528, +1.45593989, +1.35965276, +0.178813934E-6, +0.536441803E-6, +0.596046448E-7, -0.596046448E-7, +0.357627869E-6, +0.357627869E-6, +0.00000000, +0.596046448E-7, +0.238418579E-6, +0.298023224E-6, +0.00000000, -0.178813934E-6, +0.596046448E-7, +0.596046448E-7, +0.00000000, +0.00000000, -0.596046448E-7, +0.119209290E-6, -0.178813934E-6, +0.119209290E-6, -0.178813934E-6, +0.298023224E-6, -0.298023224E-6, +0.119209290E-6, -0.417232513E-6, +0.119209290E-6, -0.178813934E-6, -0.596046448E-7, +0.00000000, +0.178813934E-6, -0.178813934E-6, -0.596046448E-7, -0.119209290E-6, +0.298023224E-6, +0.119209290E-6, -0.596046448E-7, +0.119209290E-6, +0.417232513E-6, -0.178813934E-6, +0.178813934E-6, -0.119209290E-6, +0.417232513E-6, +0.119209290E-6, -0.596046448E-7, +0.119209290E-6, +0.238418579E-6, -0.596046448E-7, +0.596046448E-7, +0.596046448E-7, -0.596046448E-7
266reltol = sqrt(epsilon(1._TKC))
267reltol
268+0.345266977E-3
269isClose(data, atad(1:size(data)), reltol = reltol)
270T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
271call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
272
273lenData = getUnifRand(5, 100)
274lenData
275+29
276data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
277data
278+1.9230113702072569, +1.2359718917178162, +1.4353182689858479, +1.8544933772463126, +1.7770684751328854, +1.2275846723739043, +1.6663486327218227, +1.0057715581835789, +1.1031659967539182, +1.8654480754770875, +1.8233746776622815, +1.4543791726173945, +1.0016215492935130, +1.0480277294108835, +1.4102036253330219, +1.5157795921425801, +1.4642576980147259, +1.9220666731492917, +1.8608625049327649, +1.9195679714067544, +1.5582629233506600, +1.0086690284793236, +1.2016678106472463, +1.3202555293410585, +1.9483993244048872, +1.1969797452783562, +1.9603540497715581, +1.1562000255354850, +1.9563589086304325
279
280atad = getFFTI(getFFTF(data))
281atad
282+1.9230113702072569, +1.2359718917178162, +1.4353182689858484, +1.8544933772463128, +1.7770684751328854, +1.2275846723739043, +1.6663486327218222, +1.0057715581835791, +1.1031659967539182, +1.8654480754770875, +1.8233746776622815, +1.4543791726173949, +1.0016215492935134, +1.0480277294108835, +1.4102036253330223, +1.5157795921425801, +1.4642576980147257, +1.9220666731492919, +1.8608625049327649, +1.9195679714067546, +1.5582629233506600, +1.0086690284793236, +1.2016678106472463, +1.3202555293410585, +1.9483993244048872, +1.1969797452783562, +1.9603540497715579, +1.1562000255354850, +1.9563589086304320, +0.0000000000000000, +0.33306690738754696E-15, +0.55511151231257827E-15
283reltol = sqrt(epsilon(1._TKC))
284reltol
285+0.14901161193847656E-7
286isClose(data, atad(1:size(data)), reltol = reltol)
287T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
288call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
289
290lenData = getUnifRand(5, 100)
291lenData
292+73
293data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
294data
295+1.90781322306366967948524769964294437, +1.94194787303097178098049143658083054, +1.44433988414521117961914550090505846, +1.01691945741649209737056973281207959, +1.14663560817545834156591677826500978, +1.54124654877531492200513519208252082, +1.43191088739338782504950305889598557, +1.12295126696131061595029528390497126, +1.13876336828425091957873145583390581, +1.01561544164391422186801954492047366, +1.91922090558016238383774274859250255, +1.04750017316227602648169154046543180, +1.55534257144365962367018653055068585, +1.73396593341103438684044525536072635, +1.57465944983666635779861968032627412, +1.34308323890498647686031901645675632, +1.46608115373692365949712777959008180, +1.31192854166250219396764945543633398, +1.90180748096511035237659739542484141, +1.31772840030574749249403805093378052, +1.22636180231972519550660599548402909, +1.22717800382353887170953046837142939, +1.18446965454170940185752770269004843, +1.00551386787712580108962426838456751, +1.47654063793617879310464976675422161, +1.52073946592885473447231520867628196, +1.47276408281849998771280224908046911, +1.47532955810631711459022741315536122, +1.70685973907225718726565799163144054, +1.98197623372092251471801836050253190, +1.60188660139784633401123392972928965, +1.36477010423192506795969484650184625, +1.00918620704737141684650946775595583, +1.31745415171242780164467249638290595, +1.56773288302740507186798774045604387, +1.30280082390023815980757487037127505, +1.93239893138093138278250453139293732, +1.35813877723113272304096590170743309, +1.09167419313729167845082016973077462, +1.11091667973516596871351098322595178, +1.16109435974622059875365824000592525, +1.28743346098576524092555512324160852, +1.81284898170036042018070794837589243, +1.62191859900706678796865596347713138, +1.28753408342840802063751595205023638, +1.52260882431092342021762749784389583, +1.90087463027631585349550520562031677, +1.29166808673341750668953528425577110, +1.98062540838303872652230831698110192, +1.68697112910784390273671220023221401, +1.27218496907489267811062887493066925, +1.73836049576545168540143472849935771, +1.45323667851617922613760995912851419, +1.91582619493569770604338234269844262, +1.22612705684827814988666149532257365, +1.63050575103100088496865836325469372, +1.53956944134861900018793257746419633, +1.50208855766811655786878415298450529, +1.03443047779093226977720550586478303, +1.67593911831722167180422571264990069, +1.41185179336464937557468515214256265, +1.02720530544832462972287896867289433, +1.91156264079636550129546191629995288, +1.03849865632907815321806664326422125, +1.02789592992767912375737707441743863, +1.79601913261281982106575426362218146, +1.91624834101040176174091087117114185, +1.93591703563457890674654501258381984, +1.81589732477234133475095077222639828, +1.25685941956009211526559235857922788, +1.67625894880879504627116051631334489, +1.04687997697531948537300869859839848, +1.46687532047885291169940599827230484
296
297atad = getFFTI(getFFTF(data))
298atad
299+1.90781322306366967948524769964294456, +1.94194787303097178098049143658083092, +1.44433988414521117961914550090505885, +1.01691945741649209737056973281207921, +1.14663560817545834156591677826500940, +1.54124654877531492200513519208252082, +1.43191088739338782504950305889598557, +1.12295126696131061595029528390497126, +1.13876336828425091957873145583390619, +1.01561544164391422186801954492047366, +1.91922090558016238383774274859250351, +1.04750017316227602648169154046543180, +1.55534257144365962367018653055068643, +1.73396593341103438684044525536072674, +1.57465944983666635779861968032627451, +1.34308323890498647686031901645675613, +1.46608115373692365949712777959008180, +1.31192854166250219396764945543633456, +1.90180748096511035237659739542484141, +1.31772840030574749249403805093378090, +1.22636180231972519550660599548402870, +1.22717800382353887170953046837142939, +1.18446965454170940185752770269004785, +1.00551386787712580108962426838456751, +1.47654063793617879310464976675422161, +1.52073946592885473447231520867628234, +1.47276408281849998771280224908046949, +1.47532955810631711459022741315536180, +1.70685973907225718726565799163144054, +1.98197623372092251471801836050253248, +1.60188660139784633401123392972928965, +1.36477010423192506795969484650184644, +1.00918620704737141684650946775595622, +1.31745415171242780164467249638290633, +1.56773288302740507186798774045604406, +1.30280082390023815980757487037127505, +1.93239893138093138278250453139293751, +1.35813877723113272304096590170743289, +1.09167419313729167845082016973077501, +1.11091667973516596871351098322595178, +1.16109435974622059875365824000592544, +1.28743346098576524092555512324160871, +1.81284898170036042018070794837589281, +1.62191859900706678796865596347713196, +1.28753408342840802063751595205023638, +1.52260882431092342021762749784389602, +1.90087463027631585349550520562031716, +1.29166808673341750668953528425577091, +1.98062540838303872652230831698110192, +1.68697112910784390273671220023221401, +1.27218496907489267811062887493066925, +1.73836049576545168540143472849935771, +1.45323667851617922613760995912851419, +1.91582619493569770604338234269844223, +1.22612705684827814988666149532257365, +1.63050575103100088496865836325469314, +1.53956944134861900018793257746419633, +1.50208855766811655786878415298450529, +1.03443047779093226977720550586478264, +1.67593911831722167180422571264990127, +1.41185179336464937557468515214256265, +1.02720530544832462972287896867289433, +1.91156264079636550129546191629995288, +1.03849865632907815321806664326422125, +1.02789592992767912375737707441743882, +1.79601913261281982106575426362218185, +1.91624834101040176174091087117114185, +1.93591703563457890674654501258382023, +1.81589732477234133475095077222639809, +1.25685941956009211526559235857922788, +1.67625894880879504627116051631334489, +1.04687997697531948537300869859839829, +1.46687532047885291169940599827230484, -0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-33, -0.674075480535532548569592279904724561E-33, -0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34, +0.192592994438723585305597794258492732E-33, +0.288889491658085377958396691387739098E-33, +0.962964972193617926527988971292463659E-34, +0.192592994438723585305597794258492732E-33, -0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000, -0.962964972193617926527988971292463659E-34, +0.962964972193617926527988971292463659E-34, +0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34, -0.288889491658085377958396691387739098E-33, -0.192592994438723585305597794258492732E-33, -0.674075480535532548569592279904724561E-33, -0.192592994438723585305597794258492732E-33, -0.288889491658085377958396691387739098E-33, -0.962964972193617926527988971292463659E-34, -0.481482486096808963263994485646231830E-33, +0.00000000000000000000000000000000000, +0.288889491658085377958396691387739098E-33, +0.192592994438723585305597794258492732E-33, -0.288889491658085377958396691387739098E-33, -0.192592994438723585305597794258492732E-33, +0.192592994438723585305597794258492732E-33, -0.288889491658085377958396691387739098E-33, +0.00000000000000000000000000000000000, -0.192592994438723585305597794258492732E-33, -0.192592994438723585305597794258492732E-33, -0.288889491658085377958396691387739098E-33, -0.385185988877447170611195588516985464E-33, -0.385185988877447170611195588516985464E-33, +0.00000000000000000000000000000000000, -0.481482486096808963263994485646231830E-33, -0.192592994438723585305597794258492732E-33, +0.192592994438723585305597794258492732E-33, +0.385185988877447170611195588516985464E-33, +0.192592994438723585305597794258492732E-33, +0.962964972193617926527988971292463659E-34, -0.385185988877447170611195588516985464E-33, +0.288889491658085377958396691387739098E-33, -0.192592994438723585305597794258492732E-33, +0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000, +0.00000000000000000000000000000000000, +0.288889491658085377958396691387739098E-33, -0.577778983316170755916793382775478196E-33, -0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33, +0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34
300reltol = sqrt(epsilon(1._TKC))
301reltol
302+0.138777878078144567552953958511352539E-16
303isClose(data, atad(1:size(data)), reltol = reltol)
304T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
305call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
306
307lenData = getUnifRand(5, 100)
308lenData
309+80
310data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
311data
312(+1.11844289, +0.511422813), (+1.88200879, +0.761159718), (+1.65483761, +0.935101092), (+1.85290718, +0.474527419), (+1.99207973, +0.404153109), (+1.74501812, +0.218670726), (+1.81291986, +0.330388904), (+1.95093524, +0.384555161), (+1.02213430, +0.422483861), (+1.41682076, +0.217496157E-1), (+1.84723818, +0.356813669E-1), (+1.95004761, +0.397441208), (+1.17837369, +0.896911085), (+1.03805196, +0.523306489), (+1.56237793, +0.116995573E-1), (+1.59006178, +0.775968850), (+1.61529875, +0.115383923), (+1.10611343, +0.460978508), (+1.96336257, +0.710171103), (+1.36455965, +0.442409515E-1), (+1.30585802, +0.135348380), (+1.86184609, +0.906483591), (+1.74733305, +0.950548828), (+1.67511678, +0.352559924), (+1.74730921, +0.400290489E-1), (+1.27420795, +0.433112264), (+1.73210430, +0.662929952), (+1.64347374, +0.834324539), (+1.29291737, +0.312902331), (+1.20637298, +0.667305887), (+1.88129997, +0.662128210), (+1.83924127, +0.357135832), (+1.63019800, +0.615610719), (+1.06921244, +0.920576274), (+1.77881765, +0.411925972), (+1.44970059, +0.821401238), (+1.37381244, +0.220657229), (+1.88653564, +0.140353382), (+1.69493937, +0.315800905), (+1.17569828, +0.286802590), (+1.75116420, +0.904036760E-1), (+1.95884085, +0.734288216), (+1.03950548, +0.221377015E-1), (+1.83906150, +0.377456486), (+1.45518601, +0.200202584), (+1.08821678, +0.261932313), (+1.60283542, +0.377323270), (+1.39993358, +0.339083731), (+1.54584932, +0.667625725), (+1.79954672, +0.811346889), (+1.82919705, +0.566462398), (+1.79608393, +0.802881837), (+1.72014308, +0.483642876), (+1.85332823, +0.720837712), (+1.63406289, +0.595540285), (+1.22962260, +0.120639265), (+1.67194700, +0.385193586), (+1.86545372, +0.791944861), (+1.56449461, +0.726272702), (+1.57414532, +0.364506245E-2), (+1.06426096, +0.343972921), (+1.53851831, +0.766773403), (+1.36622107, +0.695412099), (+1.80673313, +0.467948735), (+1.53744292, +0.971779943), (+1.17980385, +0.279552341), (+1.89732087, +0.437093139), (+1.25979066, +0.535451353), (+1.58677483, +0.785103142), (+1.11151099, +0.150777578), (+1.18618345, +0.409432173), (+1.28486800, +0.183029830), (+1.80166221, +0.601936579), (+1.90897882, +0.321519792), (+1.83742476, +0.253193974E-1), (+1.45665836, +0.321098506), (+1.52361858, +0.116831243), (+1.27353573, +0.207221925), (+1.58198738, +0.611805916), (+1.34589028, +0.230542541)
313
314atad = getFFTI(getFFTF(data))
315atad
316(+1.11844277, +0.511422753), (+1.88200879, +0.761160016), (+1.65483725, +0.935101151), (+1.85290682, +0.474527329), (+1.99207962, +0.404152930), (+1.74501824, +0.218670622), (+1.81291974, +0.330388755), (+1.95093489, +0.384554952), (+1.02213430, +0.422483891), (+1.41682088, +0.217498243E-1), (+1.84723818, +0.356815010E-1), (+1.95004761, +0.397441357), (+1.17837369, +0.896911085), (+1.03805220, +0.523306608), (+1.56237793, +0.116994381E-1), (+1.59006202, +0.775968850), (+1.61529863, +0.115383923), (+1.10611343, +0.460978746), (+1.96336234, +0.710170984), (+1.36455965, +0.442411005E-1), (+1.30585790, +0.135348409), (+1.86184585, +0.906483531), (+1.74733281, +0.950548649), (+1.67511654, +0.352559924), (+1.74730921, +0.400291756E-1), (+1.27420783, +0.433112502), (+1.73210418, +0.662930071), (+1.64347363, +0.834324598), (+1.29291737, +0.312902391), (+1.20637286, +0.667306006), (+1.88129997, +0.662128448), (+1.83924127, +0.357136011), (+1.63019800, +0.615610480), (+1.06921244, +0.920576215), (+1.77881765, +0.411925793), (+1.44970071, +0.821401060), (+1.37381232, +0.220657080), (+1.88653553, +0.140353262), (+1.69493937, +0.315800637), (+1.17569840, +0.286802560), (+1.75116408, +0.904036313E-1), (+1.95884073, +0.734288216), (+1.03950548, +0.221376717E-1), (+1.83906150, +0.377456546), (+1.45518589, +0.200202465), (+1.08821678, +0.261932313), (+1.60283554, +0.377323121), (+1.39993382, +0.339083791), (+1.54584908, +0.667625546), (+1.79954648, +0.811346829), (+1.82919669, +0.566462159), (+1.79608369, +0.802881718), (+1.72014296, +0.483642638), (+1.85332799, +0.720837474), (+1.63406289, +0.595540047), (+1.22962260, +0.120639175), (+1.67194676, +0.385193497), (+1.86545336, +0.791944742), (+1.56449449, +0.726272583), (+1.57414508, +0.364509225E-2), (+1.06426084, +0.343972832), (+1.53851819, +0.766773343), (+1.36622119, +0.695411921), (+1.80673313, +0.467948496), (+1.53744268, +0.971779943), (+1.17980385, +0.279552341), (+1.89732063, +0.437093019), (+1.25979078, +0.535451353), (+1.58677495, +0.785103023), (+1.11151099, +0.150777563), (+1.18618357, +0.409432203), (+1.28486800, +0.183029801), (+1.80166197, +0.601936579), (+1.90897858, +0.321519941), (+1.83742464, +0.253195595E-1), (+1.45665824, +0.321098596), (+1.52361858, +0.116831481), (+1.27353585, +0.207221985), (+1.58198738, +0.611805856), (+1.34589040, +0.230542481), (-0.119209290E-6, -0.596046448E-7), (+0.119209290E-6, -0.119209290E-6), (+0.357627869E-6, +0.298023224E-7), (+0.298023224E-6, +0.894069672E-7), (+0.119209290E-6, +0.298023224E-7), (+0.119209290E-6, +0.298023224E-7), (+0.178813934E-6, +0.238418579E-6), (+0.298023224E-6, +0.178813934E-6), (-0.596046448E-7, -0.290572643E-6), (+0.178813934E-6, -0.253319740E-6), (+0.119209290E-6, +0.00000000), (+0.00000000, -0.238418579E-6), (-0.119209290E-6, -0.119209290E-6), (+0.00000000, -0.178813934E-6), (-0.298023224E-6, -0.298023224E-7), (+0.178813934E-6, -0.119209290E-6), (-0.298023224E-6, +0.149011612E-6), (+0.178813934E-6, +0.119209290E-6), (+0.596046448E-7, +0.357627869E-6), (+0.119209290E-6, +0.178813934E-6), (+0.00000000, +0.208616257E-6), (+0.119209290E-6, +0.968575478E-7), (-0.596046448E-7, +0.387430191E-6), (+0.119209290E-6, +0.178813934E-6), (-0.119209290E-6, -0.104308128E-6), (+0.119209290E-6, +0.894069672E-7), (+0.596046448E-7, +0.894069672E-7), (+0.178813934E-6, +0.00000000), (-0.238418579E-6, +0.119209290E-6), (+0.178813934E-6, -0.298023224E-7), (+0.00000000, +0.894069672E-7), (+0.298023224E-6, +0.00000000), (+0.00000000, +0.149011612E-6), (+0.417232513E-6, +0.298023224E-6), (+0.238418579E-6, +0.327825546E-6), (+0.238418579E-6, +0.208616257E-6), (+0.00000000, +0.193715096E-6), (+0.00000000, +0.178813934E-6), (+0.00000000, +0.327825546E-6), (+0.178813934E-6, +0.238418579E-6), (+0.238418579E-6, -0.298023224E-7), (+0.357627869E-6, +0.894069672E-7), (+0.119209290E-6, +0.596046448E-7), (+0.178813934E-6, +0.119209290E-6), (-0.119209290E-6, +0.298023224E-7), (+0.119209290E-6, +0.119209290E-6), (-0.178813934E-6, +0.298023224E-7), (+0.596046448E-7, +0.596046448E-7)
317reltol = sqrt(epsilon(1._TKC))
318reltol
319+0.345266977E-3
320isClose(data, atad(1:size(data)), reltol = reltol)
321T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
322call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
323
324lenData = getUnifRand(5, 100)
325lenData
326+78
327data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
328data
329(+1.8228427288957472, +0.74319795934949917), (+1.2359679634947924, +0.93203778205704424), (+1.0582463879340982, +0.35958353778905872), (+1.0584596462238509, +0.91351965997887941), (+1.8997478525245246, +0.44569609691614898), (+1.9256246649561519, +0.18566844790463355), (+1.7215090873951797, +0.18284905465018286), (+1.3519462332102674, +0.62652732533177757), (+1.1337791406070772, +0.90115772866176347), (+1.1459539458032553, +0.95831931913076485E-1), (+1.8282422465236945, +0.71788973212843665), (+1.0236703605480804, +0.77678475378306011), (+1.3530711196010998, +0.25706275448478955), (+1.7362012292899069, +0.35251495124924326), (+1.8280131706711629, +0.45451157223777849), (+1.8237775292655289, +0.30711761621585876), (+1.2057867084232905, +0.24785377214935345E-1), (+1.4817728942444470, +0.98226277527198258E-1), (+1.3332915534977157, +0.37342010682994908), (+1.7015436005056526, +0.86316394899421600), (+1.5182594135857916, +0.24733963131090997E-1), (+1.0873906889591576, +0.51073131613785061), (+1.2734568720120611, +0.66861803320977786), (+1.5126130842644447, +0.47769315359038755), (+1.5107710018093099, +0.65515147387397898), (+1.6914841242446044, +0.45085076528185719), (+1.4364363948300869, +0.97724484726339655E-1), (+1.6697553263947400, +0.92103461916344043), (+1.3678527291644798, +0.85848123372083551), (+1.1702569633714894, +0.67226899383765115), (+1.9246190272294412, +0.12934583846440084E-2), (+1.5867646615013038, +0.94274398666491999), (+1.1891875410663308, +0.83766374149240563), (+1.7161389736152755, +0.37768072715767098), (+1.7194620276082246, +0.48356913224846276), (+1.8474098504951604, +0.60300322767699088), (+1.0265760910325465, +0.30258673707251427), (+1.6839951528883916, +0.79055874504540491), (+1.2535897447671576, +0.36774340711249198), (+1.0500430415141548, +0.47582938496870752), (+1.1823265818185080, +0.15609726017405268), (+1.6849817131225997, +0.85485355679884578E-1), (+1.7244771457047190, +0.65964502606421138), (+1.2343930136805747, +0.75013442158166999), (+1.4927197179210445, +0.26093474709286468E-1), (+1.3266361202532284, +0.70998703864601176), (+1.0282956724114727, +0.68268436284429701), (+1.0274248050588155, +0.98678945696588871), (+1.2495106353524361, +0.70445138559320752), (+1.8070728527198678, +0.20134981926825946E-2), (+1.7527117483368695, +0.84582938641078576), (+1.6396444557079348, +0.31174172714716697), (+1.5152063256046806, +0.35811383377566897), (+1.8397344321972491, +0.38780497859651131), (+1.9291479013082848, +0.35893832080664201), (+1.5628906039106827, +0.69168894985283180), (+1.0675582588723738, +0.13165034755666993E-1), (+1.0854481561660385, +0.91728329811736031), (+1.7395906649978650, +0.97191188803365769), (+1.4614868763426139, +0.77316630380013229), (+1.2768231370354728, +0.27085544950414597E-1), (+1.2302076415631553, +0.28802022486559875), (+1.4532444769223116, +0.10610105743389386E-1), (+1.8325593581615534, +0.21470830484671044), (+1.3834357212185435, +0.37148430563524015E-1), (+1.0040346900218526, +0.21053986647781386), (+1.6519460776702701, +0.92471389654277303), (+1.6080060375014087, +0.98058892523263375), (+1.6051906843775630, +0.36326830604777882), (+1.4998443835874502, +0.29118816350552734), (+1.1857947855605870, +0.28336554343964815), (+1.3538182186725738, +0.92076560707988553), (+1.1031448845213898, +0.33941699189268537), (+1.0337486722557014, +0.92973849029308353), (+1.0237473988596122, +0.31920680442331284), (+1.0135141751618457, +0.55705199144751971), (+1.2596701167055593, +0.69454249220530606), (+1.2282319295243456, +0.73100321643139399)
330
331atad = getFFTI(getFFTF(data))
332atad
333(+1.8228427288957474, +0.74319795934949928), (+1.2359679634947927, +0.93203778205704446), (+1.0582463879340982, +0.35958353778905888), (+1.0584596462238509, +0.91351965997887952), (+1.8997478525245244, +0.44569609691614892), (+1.9256246649561526, +0.18566844790463372), (+1.7215090873951797, +0.18284905465018295), (+1.3519462332102676, +0.62652732533177757), (+1.1337791406070772, +0.90115772866176358), (+1.1459539458032555, +0.95831931913076374E-1), (+1.8282422465236945, +0.71788973212843676), (+1.0236703605480806, +0.77678475378306022), (+1.3530711196011000, +0.25706275448478982), (+1.7362012292899072, +0.35251495124924337), (+1.8280131706711626, +0.45451157223777849), (+1.8237775292655289, +0.30711761621585920), (+1.2057867084232907, +0.24785377214935622E-1), (+1.4817728942444472, +0.98226277527198425E-1), (+1.3332915534977157, +0.37342010682994875), (+1.7015436005056526, +0.86316394899421589), (+1.5182594135857914, +0.24733963131090914E-1), (+1.0873906889591580, +0.51073131613785028), (+1.2734568720120607, +0.66861803320977775), (+1.5126130842644452, +0.47769315359038755), (+1.5107710018093097, +0.65515147387397898), (+1.6914841242446044, +0.45085076528185741), (+1.4364363948300873, +0.97724484726339711E-1), (+1.6697553263947396, +0.92103461916344043), (+1.3678527291644798, +0.85848123372083529), (+1.1702569633714894, +0.67226899383765093), (+1.9246190272294408, +0.12934583846439703E-2), (+1.5867646615013036, +0.94274398666491965), (+1.1891875410663308, +0.83766374149240552), (+1.7161389736152755, +0.37768072715767087), (+1.7194620276082249, +0.48356913224846243), (+1.8474098504951604, +0.60300322767699077), (+1.0265760910325468, +0.30258673707251416), (+1.6839951528883921, +0.79055874504540480), (+1.2535897447671578, +0.36774340711249165), (+1.0500430415141548, +0.47582938496870725), (+1.1823265818185080, +0.15609726017405257), (+1.6849817131225997, +0.85485355679884523E-1), (+1.7244771457047192, +0.65964502606421138), (+1.2343930136805747, +0.75013442158167010), (+1.4927197179210445, +0.26093474709286357E-1), (+1.3266361202532284, +0.70998703864601165), (+1.0282956724114727, +0.68268436284429668), (+1.0274248050588155, +0.98678945696588838), (+1.2495106353524363, +0.70445138559320730), (+1.8070728527198681, +0.20134981926825390E-2), (+1.7527117483368695, +0.84582938641078531), (+1.6396444557079346, +0.31174172714716702), (+1.5152063256046806, +0.35811383377566863), (+1.8397344321972489, +0.38780497859651109), (+1.9291479013082844, +0.35893832080664140), (+1.5628906039106827, +0.69168894985283180), (+1.0675582588723735, +0.13165034755666771E-1), (+1.0854481561660383, +0.91728329811736042), (+1.7395906649978650, +0.97191188803365725), (+1.4614868763426139, +0.77316630380013196), (+1.2768231370354728, +0.27085544950414348E-1), (+1.2302076415631555, +0.28802022486559858), (+1.4532444769223112, +0.10610105743388911E-1), (+1.8325593581615531, +0.21470830484671000), (+1.3834357212185435, +0.37148430563523960E-1), (+1.0040346900218526, +0.21053986647781398), (+1.6519460776702704, +0.92471389654277303), (+1.6080060375014082, +0.98058892523263408), (+1.6051906843775630, +0.36326830604777866), (+1.4998443835874504, +0.29118816350552729), (+1.1857947855605873, +0.28336554343964782), (+1.3538182186725740, +0.92076560707988531), (+1.1031448845213898, +0.33941699189268543), (+1.0337486722557012, +0.92973849029308353), (+1.0237473988596120, +0.31920680442331278), (+1.0135141751618455, +0.55705199144751949), (+1.2596701167055593, +0.69454249220530562), (+1.2282319295243453, +0.73100321643139332), (+0.22204460492503131E-15, -0.30531133177191805E-15), (+0.11102230246251565E-15, -0.63837823915946501E-15), (+0.22204460492503131E-15, +0.55511151231257827E-16), (+0.11102230246251565E-15, -0.16653345369377348E-15), (+0.22204460492503131E-15, +0.16653345369377348E-15), (+0.22204460492503131E-15, -0.33306690738754696E-15), (+0.44408920985006262E-15, +0.13877787807814457E-15), (+0.66613381477509392E-15, -0.11102230246251565E-15), (+0.55511151231257827E-15, +0.11102230246251565E-15), (+0.55511151231257827E-15, -0.27755575615628914E-16), (+0.0000000000000000, -0.55511151231257827E-16), (+0.0000000000000000, -0.30531133177191805E-15), (+0.11102230246251565E-15, +0.0000000000000000), (+0.33306690738754696E-15, -0.33306690738754696E-15), (+0.22204460492503131E-15, -0.11102230246251565E-15), (+0.55511151231257827E-15, -0.22204460492503131E-15), (+0.33306690738754696E-15, +0.26714741530042829E-15), (+0.44408920985006262E-15, +0.55511151231257827E-16), (-0.11102230246251565E-15, +0.11102230246251565E-15), (+0.33306690738754696E-15, +0.13877787807814457E-15), (+0.0000000000000000, +0.36082248300317588E-15), (+0.0000000000000000, +0.55511151231257827E-16), (-0.11102230246251565E-15, +0.24980018054066022E-15), (+0.33306690738754696E-15, +0.16653345369377348E-15), (+0.22204460492503131E-15, +0.41633363423443370E-15), (+0.44408920985006262E-15, +0.16653345369377348E-15), (+0.22204460492503131E-15, +0.11102230246251565E-15), (+0.22204460492503131E-15, -0.16653345369377348E-15), (-0.11102230246251565E-15, +0.11102230246251565E-15), (+0.11102230246251565E-15, -0.27755575615628914E-15), (+0.11102230246251565E-15, +0.33306690738754696E-15), (+0.44408920985006262E-15, +0.0000000000000000), (+0.0000000000000000, +0.22204460492503131E-15), (+0.33306690738754696E-15, +0.55511151231257827E-16), (+0.0000000000000000, +0.27755575615628914E-15), (+0.22204460492503131E-15, -0.55511151231257827E-16), (+0.11102230246251565E-15, +0.44408920985006262E-15), (+0.44408920985006262E-15, -0.55511151231257827E-16), (+0.0000000000000000, +0.49960036108132044E-15), (+0.66613381477509392E-15, +0.24980018054066022E-15), (+0.11102230246251565E-15, +0.61062266354383610E-15), (+0.44408920985006262E-15, +0.27755575615628914E-15), (+0.22204460492503131E-15, +0.27755575615628914E-15), (+0.44408920985006262E-15, -0.22204460492503131E-15), (+0.0000000000000000, +0.44408920985006262E-15), (+0.44408920985006262E-15, +0.11102230246251565E-15), (+0.22204460492503131E-15, +0.69388939039072284E-15), (+0.66613381477509392E-15, +0.72164496600635175E-15), (+0.22204460492503131E-15, +0.69041994343876922E-15), (+0.44408920985006262E-15, +0.99920072216264089E-15)
334reltol = sqrt(epsilon(1._TKC))
335reltol
336+0.14901161193847656E-7
337isClose(data, atad(1:size(data)), reltol = reltol)
338T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
339call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
340
341lenData = getUnifRand(5, 100)
342lenData
343+86
344data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
345data
346(+1.67183434453436581499354323223522905, +0.735199848390095943283362867310800145), (+1.71663808301820741371039294943311394, +0.478678724326892672232860679231036915), (+1.04089571024088898410912530149988307, +0.609741210195324498720095738214809528), (+1.46884369751801288109745378097367096, +0.326207276055365804302716884743954707), (+1.96527294654881480219582846317918167, +0.262472959983021129590945810055361242), (+1.49443513721723616483345024404739910, +0.230881695964510821374006437061810362), (+1.84158957267472930257276974951617166, +0.263226614860104489827066165559255119), (+1.45397169171055159057748199781088296, +0.483579566803088365235519965747597982), (+1.20418831385317647320440449886944634, +0.676882472843891427260355131507102287), (+1.95711764651846624374736563548380035, +0.412266633480550174879093247436105236E-1), (+1.99739202871864816918882444444256637, +0.158252127832965257004507664752229740), (+1.00451189886906993390596145778159569, +0.896738110187094786119159409988582819), (+1.88623021598898483881877025233473188, +0.219114605927509494785826334442983702), (+1.83157873800791408197958270421731189, +0.628546717487819230704037582222203326), (+1.41357070718852757328643059011700754, +0.237409379054059462979256814387604179), (+1.87308098203701596860377466868105775, +0.289698199906128802095221644443644749), (+1.56516438737052194778830273099099526, +0.693331691330104826567409558648525310E-1), (+1.55365404710750950081821174650255019, +0.521607930837569141465515502137504184), (+1.82154319942455749047461063454144851, +0.780317995918385887916529545311697118), (+1.15336621513235215677818635445562233, +0.950813127671750874967746523810249993E-2), (+1.10770424199380879791041161148877107, +0.247433704666916450921029734173206962), (+1.71527769069808439147175591509244142, +0.940878561047880267336493417905790290E-1), (+1.94935183217445605677694457968418104, +0.843945569396169629694749361352467967), (+1.28330495920203511319328354998047956, +0.932583256920998846818680235966075869), (+1.36420878531762889859324523554258345, +0.372427969962119417491065990595048704), (+1.00263491466973030169353563263746020, +0.141073050630073616399156903314474110), (+1.05699419117419862610418246007923040, +0.805453979103034721346711987757616714), (+1.85237461517283839806584655393252070, +0.203724464979352328188764209553576971E-1), (+1.49822901397705129018515337850907062, +0.776857132066918968086634610783961973), (+1.51243016443589987391567776007679643, +0.977637748886063453666644382337873164), (+1.84091017752278394293899083665269838, +0.962541329471339676730933916577362344), (+1.63982061134356545451180281342980360, +0.398594302805822030287311705813944705), (+1.75808230642689181981305730859233166, +0.295075489399808526155691085177917327), (+1.42930785785089591311271947497952920, +0.207699755027114281016463051650811705), (+1.02769683054446990476157239113178186, +0.603725322398502775150209185176439801), (+1.13105424134487831987941523675491449, +0.175325981505801416076778237606716792), (+1.41420255612163034863547622537734947, +0.844276160217785690222075232798925661), (+1.62469026760306581757792059226708801, +0.945499239219833685250971970997715127), (+1.42225942228086998577724009175987796, +0.274474225048150685328809364264925956), (+1.10997121086559717414824662964863611, +0.544178125528959356679840012643209538), (+1.07936709724022363987926659522408774, +0.780266440559462745178486355452673925), (+1.43937406323056470306663952626861650, +0.864569985615022354774748051069290666E-1), (+1.89331453148068276636596857846494160, +0.822733635884277748179436660293654608), (+1.78743986450200425476097812400772239, +0.869321730681747017497439575016088227), (+1.98877656298929760187668920052145689, +0.724990050620910796945556648890713335), (+1.45670545565701679593751166229974536, +0.684242310916077403014868450276546317), (+1.88271011275746065862161268821457997, +0.660089325485049995690653280060581043), (+1.42413116967567983436585241534102333, +0.340366040443111180638715542318994759), (+1.35215068490339893328825425710655370, +0.261782051936517549197087336945489489), (+1.17959199855516055873713869331707478, +0.813999123370624667748273727371563396), (+1.46857380210239206529325215680109524, +0.285040292739773241879174890453404493), (+1.86525748918137812723030076242003881, +0.119810740797364241939196467256939107), (+1.45733479875845699011965310534127337, +0.308780185451755122089163872729272406), (+1.33159543863071022547266723228116724, +0.246210165054538289416915721259732612), (+1.64425666812918352117885499748406869, +0.198117530479462846006112852758227805), (+1.35866436081738450730946746062096520, +0.593099413500361269246034460007673456), (+1.33634183078727128644342462203566108, +0.717086784784450424943601339978992149), (+1.77284073477250323986759628331608957, +0.825171616550073899110871775436290611), (+1.60010742558657644151544855717897230, +0.296164598872429204551708103091968529), (+1.21066996552317424928140476221185165, +0.304784320212114161619277407732461423), (+1.31251961071413024707522231737171092, +0.928308264876391433335987684183725624), (+1.15086447088553401391531126175262324, +0.232660957269534589246827640061902766), (+1.06946847511236418186417429622027791, +0.645909411156639570427242873628192549), (+1.26133736815456241485827186126928537, +0.438465180641186939606391914305916730), (+1.55225012899023174722233792942212800, +0.185205966969338062198041169891881976E-2), (+1.05461911384993335999695525512358642, +0.604413473240741261498577979850278305), (+1.63580207095720379758892613232871188, +0.205843603642037189861453579040987398), (+1.14566473275946818030735406863627122, +0.394140262600145268082173335449538038), (+1.70017431068127949101779214160229995, +0.660563742809343939201982503922238269), (+1.95007974575682865671442267177794178, +0.639965170991034087017943823386974548), (+1.47884490122599700071613846870116214, +0.259225037411565996675984022666731792), (+1.39988850019159529257401063459420773, +0.505533276176976477736982953922315890E-1), (+1.00206121802122423150612622099992147, +0.388383541880689791061675609384836058), (+1.60814581102071862593904902465424478, +0.682919014793034145643761444419390125), (+1.44724632123465100274461415937648095, +0.718942467603283570560793685641765142), (+1.06844564553876485511756454274469696, +0.205843388744113967450172929941241452), (+1.90376444417954531342734765421101602, +0.498725975013179865420551471403530833), (+1.41254175636717271659526138290890221, +0.481135582796515273569915144453227017), (+1.02702927472626618336120605667310430, +0.968614394554465286624296527650320216E-1), (+1.48360140402166662803658277073108392, +0.512828737674686306523413837816600242E-1), (+1.09142756414543161391451918032594634, +0.777119696442831724122055440271198990), (+1.24330030179156154543163305832593451, +0.222109718759878903077621690876984915), (+1.72009751751578724709712388740242525, +0.432888325053549805453660888979090647), (+1.68451775440268039280442303665517520, +0.264978624663026085197607816359111774), (+1.96165539319737744521074577277907173, +0.374961649266048059156448328336194094), (+1.00304867189954789789219989580248128, +0.892887194210671753073505980386292904)
347
348atad = getFFTI(getFFTF(data))
349atad
350(+1.67183434453436581499354323223522886, +0.735199848390095943283362867310800145), (+1.71663808301820741371039294943311394, +0.478678724326892672232860679231036722), (+1.04089571024088898410912530149988345, +0.609741210195324498720095738214809528), (+1.46884369751801288109745378097367076, +0.326207276055365804302716884743954659), (+1.96527294654881480219582846317918167, +0.262472959983021129590945810055360953), (+1.49443513721723616483345024404739910, +0.230881695964510821374006437061810290), (+1.84158957267472930257276974951617166, +0.263226614860104489827066165559254878), (+1.45397169171055159057748199781088276, +0.483579566803088365235519965747597838), (+1.20418831385317647320440449886944653, +0.676882472843891427260355131507102480), (+1.95711764651846624374736563548380054, +0.412266633480550174879093247436103310E-1), (+1.99739202871864816918882444444256656, +0.158252127832965257004507664752229836), (+1.00451189886906993390596145778159550, +0.896738110187094786119159409988582916), (+1.88623021598898483881877025233473188, +0.219114605927509494785826334442983775), (+1.83157873800791408197958270421731189, +0.628546717487819230704037582222203615), (+1.41357070718852757328643059011700812, +0.237409379054059462979256814387604107), (+1.87308098203701596860377466868105833, +0.289698199906128802095221644443644653), (+1.56516438737052194778830273099099545, +0.693331691330104826567409558648525792E-1), (+1.55365404710750950081821174650255038, +0.521607930837569141465515502137504087), (+1.82154319942455749047461063454144928, +0.780317995918385887916529545311697021), (+1.15336621513235215677818635445562194, +0.950813127671750874967746523810223512E-2), (+1.10770424199380879791041161148877088, +0.247433704666916450921029734173206914), (+1.71527769069808439147175591509244162, +0.940878561047880267336493417905785957E-1), (+1.94935183217445605677694457968418142, +0.843945569396169629694749361352467967), (+1.28330495920203511319328354998047994, +0.932583256920998846818680235966076061), (+1.36420878531762889859324523554258365, +0.372427969962119417491065990595048849), (+1.00263491466973030169353563263746001, +0.141073050630073616399156903314474062), (+1.05699419117419862610418246007923079, +0.805453979103034721346711987757616907), (+1.85237461517283839806584655393252089, +0.203724464979352328188764209553574323E-1), (+1.49822901397705129018515337850907082, +0.776857132066918968086634610783962070), (+1.51243016443589987391567776007679643, +0.977637748886063453666644382337873549), (+1.84091017752278394293899083665269895, +0.962541329471339676730933916577362537), (+1.63982061134356545451180281342980360, +0.398594302805822030287311705813944801), (+1.75808230642689181981305730859233185, +0.295075489399808526155691085177917375), (+1.42930785785089591311271947497952959, +0.207699755027114281016463051650811657), (+1.02769683054446990476157239113178225, +0.603725322398502775150209185176439993), (+1.13105424134487831987941523675491449, +0.175325981505801416076778237606716744), (+1.41420255612163034863547622537734985, +0.844276160217785690222075232798925565), (+1.62469026760306581757792059226708839, +0.945499239219833685250971970997715513), (+1.42225942228086998577724009175987815, +0.274474225048150685328809364264925956), (+1.10997121086559717414824662964863611, +0.544178125528959356679840012643209634), (+1.07936709724022363987926659522408774, +0.780266440559462745178486355452674311), (+1.43937406323056470306663952626861669, +0.864569985615022354774748051069291147E-1), (+1.89331453148068276636596857846494180, +0.822733635884277748179436660293654896), (+1.78743986450200425476097812400772258, +0.869321730681747017497439575016088708), (+1.98877656298929760187668920052145708, +0.724990050620910796945556648890713816), (+1.45670545565701679593751166229974516, +0.684242310916077403014868450276546413), (+1.88271011275746065862161268821458036, +0.660089325485049995690653280060581235), (+1.42413116967567983436585241534102371, +0.340366040443111180638715542318994808), (+1.35215068490339893328825425710655370, +0.261782051936517549197087336945489585), (+1.17959199855516055873713869331707497, +0.813999123370624667748273727371563588), (+1.46857380210239206529325215680109582, +0.285040292739773241879174890453404445), (+1.86525748918137812723030076242003920, +0.119810740797364241939196467256939131), (+1.45733479875845699011965310534127376, +0.308780185451755122089163872729272695), (+1.33159543863071022547266723228116724, +0.246210165054538289416915721259732443), (+1.64425666812918352117885499748406907, +0.198117530479462846006112852758227829), (+1.35866436081738450730946746062096520, +0.593099413500361269246034460007673552), (+1.33634183078727128644342462203566108, +0.717086784784450424943601339978992534), (+1.77284073477250323986759628331608976, +0.825171616550073899110871775436290996), (+1.60010742558657644151544855717897268, +0.296164598872429204551708103091968625), (+1.21066996552317424928140476221185165, +0.304784320212114161619277407732461760), (+1.31251961071413024707522231737171111, +0.928308264876391433335987684183726009), (+1.15086447088553401391531126175262324, +0.232660957269534589246827640061902742), (+1.06946847511236418186417429622027829, +0.645909411156639570427242873628192838), (+1.26133736815456241485827186126928537, +0.438465180641186939606391914305916778), (+1.55225012899023174722233792942212780, +0.185205966969338062198041169891881976E-2), (+1.05461911384993335999695525512358642, +0.604413473240741261498577979850278594), (+1.63580207095720379758892613232871207, +0.205843603642037189861453579040987494), (+1.14566473275946818030735406863627102, +0.394140262600145268082173335449538182), (+1.70017431068127949101779214160230033, +0.660563742809343939201982503922238462), (+1.95007974575682865671442267177794216, +0.639965170991034087017943823386974355), (+1.47884490122599700071613846870116214, +0.259225037411565996675984022666732032), (+1.39988850019159529257401063459420773, +0.505533276176976477736982953922315408E-1), (+1.00206121802122423150612622099992147, +0.388383541880689791061675609384836155), (+1.60814581102071862593904902465424439, +0.682919014793034145643761444419390607), (+1.44724632123465100274461415937648057, +0.718942467603283570560793685641765334), (+1.06844564553876485511756454274469657, +0.205843388744113967450172929941241645), (+1.90376444417954531342734765421101583, +0.498725975013179865420551471403531026), (+1.41254175636717271659526138290890221, +0.481135582796515273569915144453227209), (+1.02702927472626618336120605667310430, +0.968614394554465286624296527650321902E-1), (+1.48360140402166662803658277073108412, +0.512828737674686306523413837816600001E-1), (+1.09142756414543161391451918032594634, +0.777119696442831724122055440271199182), (+1.24330030179156154543163305832593432, +0.222109718759878903077621690876985036), (+1.72009751751578724709712388740242545, +0.432888325053549805453660888979090647), (+1.68451775440268039280442303665517558, +0.264978624663026085197607816359111870), (+1.96165539319737744521074577277907192, +0.374961649266048059156448328336194238), (+1.00304867189954789789219989580248166, +0.892887194210671753073505980386293385), (-0.288889491658085377958396691387739098E-33, +0.00000000000000000000000000000000000), (-0.288889491658085377958396691387739098E-33, +0.144444745829042688979198345693869549E-33), (-0.385185988877447170611195588516985464E-33, -0.481482486096808963263994485646231830E-34), (-0.288889491658085377958396691387739098E-33, +0.361111864572606722447995864234673872E-34), (-0.962964972193617926527988971292463659E-34, -0.288889491658085377958396691387739098E-33), (-0.577778983316170755916793382775478196E-33, +0.168518870133883137142398069976181140E-33), (+0.00000000000000000000000000000000000, -0.962964972193617926527988971292463659E-34), (-0.385185988877447170611195588516985464E-33, +0.962964972193617926527988971292463659E-34), (-0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34), (-0.674075480535532548569592279904724561E-33, -0.722223729145213444895991728469347744E-34), (-0.385185988877447170611195588516985464E-33, -0.481482486096808963263994485646231830E-34), (-0.481482486096808963263994485646231830E-33, +0.144444745829042688979198345693869549E-33), (+0.962964972193617926527988971292463659E-34, -0.481482486096808963263994485646231830E-34), (-0.481482486096808963263994485646231830E-33, +0.144444745829042688979198345693869549E-33), (+0.962964972193617926527988971292463659E-34, +0.144444745829042688979198345693869549E-33), (+0.00000000000000000000000000000000000, -0.962964972193617926527988971292463659E-34), (-0.288889491658085377958396691387739098E-33, -0.481482486096808963263994485646231830E-34), (-0.192592994438723585305597794258492732E-33, +0.192592994438723585305597794258492732E-33), (-0.962964972193617926527988971292463659E-34, -0.288889491658085377958396691387739098E-33), (-0.577778983316170755916793382775478196E-33, -0.433334237487128066937595037081608647E-33), (-0.192592994438723585305597794258492732E-33, -0.385185988877447170611195588516985464E-33), (-0.577778983316170755916793382775478196E-33, -0.288889491658085377958396691387739098E-33), (-0.192592994438723585305597794258492732E-33, -0.337037740267766274284796139952362281E-33), (-0.674075480535532548569592279904724561E-33, -0.481482486096808963263994485646231830E-34), (+0.00000000000000000000000000000000000, -0.192592994438723585305597794258492732E-33), (-0.481482486096808963263994485646231830E-33, -0.144444745829042688979198345693869549E-33), (-0.385185988877447170611195588516985464E-33, +0.962964972193617926527988971292463659E-34), (-0.385185988877447170611195588516985464E-33, -0.240741243048404481631997242823115915E-33), (+0.00000000000000000000000000000000000, -0.144444745829042688979198345693869549E-33), (-0.192592994438723585305597794258492732E-33, -0.722223729145213444895991728469347744E-34), (-0.192592994438723585305597794258492732E-33, -0.168518870133883137142398069976181140E-33), (-0.481482486096808963263994485646231830E-33, +0.722223729145213444895991728469347744E-34), (-0.385185988877447170611195588516985464E-33, +0.240741243048404481631997242823115915E-34), (-0.481482486096808963263994485646231830E-33, +0.192592994438723585305597794258492732E-33), (-0.192592994438723585305597794258492732E-33, -0.337037740267766274284796139952362281E-33), (+0.00000000000000000000000000000000000, -0.529630734706489859590393934210855013E-33), (+0.192592994438723585305597794258492732E-33, -0.337037740267766274284796139952362281E-33), (-0.192592994438723585305597794258492732E-33, -0.433334237487128066937595037081608647E-33), (+0.192592994438723585305597794258492732E-33, -0.481482486096808963263994485646231830E-33), (-0.481482486096808963263994485646231830E-33, -0.216667118743564033468797518540804323E-33), (-0.962964972193617926527988971292463659E-34, -0.529630734706489859590393934210855013E-33), (-0.577778983316170755916793382775478196E-33, -0.433334237487128066937595037081608647E-33)
351reltol = sqrt(epsilon(1._TKC))
352reltol
353+0.138777878078144567552953958511352539E-16
354isClose(data, atad(1:size(data)), reltol = reltol)
355T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
356call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
357
358lenData = getUnifRand(5, 100)
359lenData
360+59
361data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
362data
363+1.47328663, +1.91728783, +1.21946287, +1.76191068, +1.50148869, +1.41763473, +1.37370777, +1.30992365, +1.66426992, +1.46493602, +1.83061552, +1.26305246, +1.75299025, +1.08746052, +1.17975688, +1.57433069, +1.50309634, +1.55175233, +1.47145689, +1.78860188, +1.43440127, +1.02950215, +1.82196140, +1.67334700, +1.28244209, +1.89942789, +1.58772874, +1.56752825, +1.93015480, +1.37963247, +1.66629219, +1.02720523, +1.27457428, +1.32658100, +1.89127517, +1.84979761, +1.70850182, +1.86494780, +1.71927691, +1.85476398, +1.36279368, +1.50466180, +1.65937960, +1.25764585, +1.56717730, +1.06326389, +1.96985376, +1.78885770, +1.59811330, +1.09005570, +1.01302922, +1.38576949, +1.79352891, +1.92882156, +1.99333692, +1.02460027, +1.82955205, +1.95233154, +1.87283063
364
365atad = getFFTI(getFFTF(data))
366atad
367+1.47328663, +1.91728806, +1.21946287, +1.76191092, +1.50148880, +1.41763496, +1.37370753, +1.30992353, +1.66426992, +1.46493626, +1.83061540, +1.26305246, +1.75299037, +1.08746064, +1.17975676, +1.57433045, +1.50309634, +1.55175245, +1.47145677, +1.78860199, +1.43440127, +1.02950239, +1.82196128, +1.67334712, +1.28244233, +1.89942813, +1.58772826, +1.56752825, +1.93015480, +1.37963271, +1.66629219, +1.02720547, +1.27457428, +1.32658124, +1.89127493, +1.84979773, +1.70850194, +1.86494780, +1.71927667, +1.85476410, +1.36279368, +1.50466204, +1.65937936, +1.25764608, +1.56717741, +1.06326401, +1.96985352, +1.78885758, +1.59811330, +1.09005606, +1.01302934, +1.38576972, +1.79352903, +1.92882156, +1.99333680, +1.02460039, +1.82955217, +1.95233178, +1.87283039, +0.417232513E-6, +0.238418579E-6, +0.596046448E-7, +0.298023224E-6, +0.238418579E-6
368reltol = sqrt(epsilon(1._TKC))
369reltol
370+0.345266977E-3
371isClose(data, atad(1:size(data)), reltol = reltol)
372T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
373call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
374
375lenData = getUnifRand(5, 100)
376lenData
377+35
378data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
379data
380+1.6779665992674868, +1.8126646494249210, +1.9468263100371881, +1.2480250910308988, +1.1509887094857276, +1.9550864671044050, +1.5947100568288304, +1.3534371917265178, +1.4366418391346434, +1.6937238412167144, +1.2844621914272074, +1.5217863408720915, +1.3050140972099857, +1.3160427801891457, +1.1221661320977507, +1.0056945190636477, +1.0821932637756686, +1.0505710963954893, +1.1080053840350590, +1.4762315058990996, +1.7798732154920258, +1.6530058598859672, +1.8586523121202796, +1.4850252587764481, +1.0317898774115162, +1.3759214842986962, +1.3182631186483422, +1.1983225525094121, +1.2308119404412592, +1.7416817595242229, +1.2948270406521156, +1.2632727861031299, +1.3187789099150637, +1.8195763537428853, +1.9249228830741163
381
382atad = getFFTI(getFFTF(data))
383atad
384+1.6779665992674866, +1.8126646494249208, +1.9468263100371874, +1.2480250910308990, +1.1509887094857270, +1.9550864671044053, +1.5947100568288297, +1.3534371917265178, +1.4366418391346434, +1.6937238412167144, +1.2844621914272070, +1.5217863408720913, +1.3050140972099853, +1.3160427801891454, +1.1221661320977501, +1.0056945190636482, +1.0821932637756686, +1.0505710963954891, +1.1080053840350592, +1.4762315058991000, +1.7798732154920254, +1.6530058598859672, +1.8586523121202787, +1.4850252587764479, +1.0317898774115162, +1.3759214842986962, +1.3182631186483420, +1.1983225525094117, +1.2308119404412592, +1.7416817595242227, +1.2948270406521152, +1.2632727861031294, +1.3187789099150635, +1.8195763537428853, +1.9249228830741159, +0.11102230246251565E-15, +0.33306690738754696E-15, -0.44408920985006262E-15, +0.33306690738754696E-15, -0.44408920985006262E-15, -0.11102230246251565E-15, -0.44408920985006262E-15, +0.44408920985006262E-15, +0.22204460492503131E-15, +0.22204460492503131E-15, +0.22204460492503131E-15, +0.11102230246251565E-15, -0.11102230246251565E-15, -0.33306690738754696E-15, -0.33306690738754696E-15, +0.11102230246251565E-15, +0.22204460492503131E-15, -0.11102230246251565E-15, -0.22204460492503131E-15, +0.11102230246251565E-15, +0.22204460492503131E-15, -0.22204460492503131E-15, +0.11102230246251565E-15, +0.22204460492503131E-15, +0.33306690738754696E-15, -0.33306690738754696E-15, +0.22204460492503131E-15, +0.11102230246251565E-15, +0.55511151231257827E-15
385reltol = sqrt(epsilon(1._TKC))
386reltol
387+0.14901161193847656E-7
388isClose(data, atad(1:size(data)), reltol = reltol)
389T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
390call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
391
392lenData = getUnifRand(5, 100)
393lenData
394+73
395data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
396data
397+1.41755113310026274607417664601299471, +1.70327157900622899699908453222982562, +1.04852676481800303036854444754640643, +1.09162927219219465166968939286146387, +1.18455716713606483310786440232270804, +1.93474863846036701477964145432741744, +1.22797205306453360857831889664282928, +1.26033006815436582149715757406568246, +1.82004191389370454241602491120491049, +1.79227243398442960961389522906550708, +1.24363195674643606155117022481242425, +1.55666107417717309480108839643910530, +1.44297278398951836023426153455274694, +1.40491520418604254767472151981079210, +1.32305941800981160119949431145299221, +1.11800591220623325398546300726665012, +1.90426332690135984247500004491413827, +1.36789431961883136948798723704020650, +1.59754569374893051124341537800475400, +1.60097062684780678282819059460733247, +1.86813176380688823004408341196108417, +1.93865143793387811560878322483400882, +1.06333656618960475121591098159509359, +1.75879210813992461687334599885039709, +1.70772080095811137491647488548964581, +1.28305563329091043197198077743920137, +1.62260705096833239742562088806270720, +1.79399080580824275932412396697909506, +1.02518768908135874063156948045241919, +1.25015464460146861911394837525168649, +1.75389657975746779154416199467920896, +1.23481101738535890759374560308761410, +1.75752870103710420070513813972832709, +1.35401594304560076462399575159313286, +1.18218382993461713693921370010283790, +1.59228008239527203497916108848455375, +1.22449036334564420984197172312753505, +1.96384089308858750313100430606121553, +1.82997892407393892053308153947844947, +1.64858713799180929850619285109328821, +1.63353227670830911964511905553678527, +1.57803669210958209279175228768191842, +1.59973887673149250418536077328120075, +1.77539254883029217755219598407054814, +1.85697948058119180547017426738452913, +1.63149178230416366816404991840977003, +1.88278806630310756225590992881036851, +1.76804211064523066780348729096671753, +1.69042835154203824461152118880142813, +1.83973313276461013736997543822241426, +1.49688428482178537174177085626197312, +1.82758597497557158606533498380717470, +1.58599573577716316733214537053598434, +1.17510376614590758961974751931448214, +1.33303723448399025542683738292081397, +1.72241053648925881007580234265331370, +1.43119238613542980862074734525320394, +1.01045301189181802287066204231802969, +1.82166857268884624684889914624762740, +1.80820734772489875947112103073864682, +1.92768934942728867590370509433974124, +1.21291892420200681947621299208958216, +1.87374125221813699343419449031975753, +1.09742653971234412641102740285250647, +1.83254291387680487776724152965194922, +1.82839393230974537556388406994995203, +1.74466173922822865027827625756442416, +1.36331341013718047864565302305168109, +1.41905005654668686892846060337335232, +1.31174247706254177246820631825672940, +1.99896069619153088561622488316582158, +1.58650282165965023781361587376383110, +1.91217367103338939085666010419915481
398
399atad = getFFTI(getFFTF(data))
400atad
401+1.41755113310026274607417664601299471, +1.70327157900622899699908453222982620, +1.04852676481800303036854444754640643, +1.09162927219219465166968939286146407, +1.18455716713606483310786440232270766, +1.93474863846036701477964145432741763, +1.22797205306453360857831889664282909, +1.26033006815436582149715757406568265, +1.82004191389370454241602491120491126, +1.79227243398442960961389522906550785, +1.24363195674643606155117022481242464, +1.55666107417717309480108839643910588, +1.44297278398951836023426153455274713, +1.40491520418604254767472151981079248, +1.32305941800981160119949431145299260, +1.11800591220623325398546300726665032, +1.90426332690135984247500004491413769, +1.36789431961883136948798723704020669, +1.59754569374893051124341537800475381, +1.60097062684780678282819059460733305, +1.86813176380688823004408341196108378, +1.93865143793387811560878322483400844, +1.06333656618960475121591098159509339, +1.75879210813992461687334599885039729, +1.70772080095811137491647488548964581, +1.28305563329091043197198077743920176, +1.62260705096833239742562088806270759, +1.79399080580824275932412396697909602, +1.02518768908135874063156948045241919, +1.25015464460146861911394837525168668, +1.75389657975746779154416199467920934, +1.23481101738535890759374560308761430, +1.75752870103710420070513813972832709, +1.35401594304560076462399575159313286, +1.18218382993461713693921370010283810, +1.59228008239527203497916108848455375, +1.22449036334564420984197172312753524, +1.96384089308858750313100430606121514, +1.82997892407393892053308153947844986, +1.64858713799180929850619285109328821, +1.63353227670830911964511905553678527, +1.57803669210958209279175228768191880, +1.59973887673149250418536077328120094, +1.77539254883029217755219598407054871, +1.85697948058119180547017426738452990, +1.63149178230416366816404991840977003, +1.88278806630310756225590992881036889, +1.76804211064523066780348729096671792, +1.69042835154203824461152118880142793, +1.83973313276461013736997543822241426, +1.49688428482178537174177085626197331, +1.82758597497557158606533498380717470, +1.58599573577716316733214537053598434, +1.17510376614590758961974751931448156, +1.33303723448399025542683738292081435, +1.72241053648925881007580234265331332, +1.43119238613542980862074734525320394, +1.01045301189181802287066204231802969, +1.82166857268884624684889914624762721, +1.80820734772489875947112103073864778, +1.92768934942728867590370509433974144, +1.21291892420200681947621299208958255, +1.87374125221813699343419449031975753, +1.09742653971234412641102740285250686, +1.83254291387680487776724152965194941, +1.82839393230974537556388406994995222, +1.74466173922822865027827625756442416, +1.36331341013718047864565302305168109, +1.41905005654668686892846060337335271, +1.31174247706254177246820631825672902, +1.99896069619153088561622488316582177, +1.58650282165965023781361587376383129, +1.91217367103338939085666010419915500, -0.192592994438723585305597794258492732E-33, -0.481482486096808963263994485646231830E-33, -0.577778983316170755916793382775478196E-33, +0.00000000000000000000000000000000000, +0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34, +0.962964972193617926527988971292463659E-34, +0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000, +0.00000000000000000000000000000000000, -0.192592994438723585305597794258492732E-33, +0.192592994438723585305597794258492732E-33, +0.962964972193617926527988971292463659E-34, +0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000, +0.00000000000000000000000000000000000, -0.385185988877447170611195588516985464E-33, -0.577778983316170755916793382775478196E-33, +0.288889491658085377958396691387739098E-33, -0.192592994438723585305597794258492732E-33, -0.385185988877447170611195588516985464E-33, -0.481482486096808963263994485646231830E-33, -0.288889491658085377958396691387739098E-33, +0.385185988877447170611195588516985464E-33, -0.962964972193617926527988971292463659E-34, +0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33, +0.288889491658085377958396691387739098E-33, -0.288889491658085377958396691387739098E-33, +0.385185988877447170611195588516985464E-33, -0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34, -0.481482486096808963263994485646231830E-33, -0.962964972193617926527988971292463659E-34, -0.385185988877447170611195588516985464E-33, +0.00000000000000000000000000000000000, -0.481482486096808963263994485646231830E-33, +0.192592994438723585305597794258492732E-33, -0.577778983316170755916793382775478196E-33, +0.385185988877447170611195588516985464E-33, -0.288889491658085377958396691387739098E-33, +0.962964972193617926527988971292463659E-34, -0.288889491658085377958396691387739098E-33, +0.288889491658085377958396691387739098E-33, +0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000, +0.192592994438723585305597794258492732E-33, -0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34, -0.385185988877447170611195588516985464E-33, -0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000
402reltol = sqrt(epsilon(1._TKC))
403reltol
404+0.138777878078144567552953958511352539E-16
405isClose(data, atad(1:size(data)), reltol = reltol)
406T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
407call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
408
409lenData = getUnifRand(5, 100)
410lenData
411+36
412data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
413data
414(+1.37017763, +0.915341973E-1), (+1.59562850, +0.408085287), (+1.48332715, +0.767785907), (+1.99138737, +0.279240608E-1), (+1.50861120, +0.233264089), (+1.28417575, +0.486626029), (+1.04817152, +0.319201052), (+1.09747708, +0.587201297), (+1.91268802, +0.593875945), (+1.13671064, +0.213071465), (+1.81132865, +0.930088460), (+1.86127329, +0.578966260), (+1.79628313, +0.771361589E-2), (+1.37109804, +0.456620574), (+1.41879392, +0.617736518), (+1.79444432, +0.558187544), (+1.48519945, +0.543742061), (+1.02672887, +0.166872561), (+1.92208838, +0.306562841), (+1.46445060, +0.910286069), (+1.11034584, +0.821168721), (+1.94777596, +0.864373624), (+1.02874744, +0.486715436), (+1.98013687, +0.310805798), (+1.63876605, +0.694391072), (+1.13070726, +0.578386545), (+1.47027898, +0.366170704), (+1.61990643, +0.513774455), (+1.09846759, +0.685431361), (+1.58965206, +0.522622228), (+1.47168136, +0.648670077), (+1.87522173, +0.364227533), (+1.57789564, +0.291870356), (+1.20935512, +0.632150650), (+1.95015538, +0.180916011), (+1.42085123, +0.314484000)
415
416atad = getFFTI(getFFTF(data))
417atad
418(+1.37017763, +0.915342122E-1), (+1.59562838, +0.408085525), (+1.48332679, +0.767785788), (+1.99138665, +0.279240310E-1), (+1.50861120, +0.233264104), (+1.28417563, +0.486625969), (+1.04817140, +0.319201112), (+1.09747696, +0.587201238), (+1.91268778, +0.593876123), (+1.13671064, +0.213071674), (+1.81132841, +0.930088401), (+1.86127281, +0.578966320), (+1.79628313, +0.771388412E-2), (+1.37109780, +0.456620812), (+1.41879392, +0.617736697), (+1.79444432, +0.558187604), (+1.48519933, +0.543742001), (+1.02672863, +0.166872546), (+1.92208815, +0.306562662), (+1.46445048, +0.910285890), (+1.11034560, +0.821168780), (+1.94777560, +0.864373505), (+1.02874732, +0.486715317), (+1.98013675, +0.310805708), (+1.63876581, +0.694391131), (+1.13070714, +0.578386426), (+1.47027850, +0.366170645), (+1.61990619, +0.513774335), (+1.09846723, +0.685431421), (+1.58965170, +0.522622228), (+1.47168112, +0.648670077), (+1.87522161, +0.364227533), (+1.57789552, +0.291870356), (+1.20935524, +0.632150471), (+1.95015538, +0.180915803), (+1.42085147, +0.314483732), (-0.119209290E-6, -0.447034836E-7), (+0.596046448E-7, -0.119209290E-6), (+0.119209290E-6, +0.149011612E-7), (+0.238418579E-6, +0.298023224E-7), (-0.596046448E-7, -0.119209290E-6), (+0.298023224E-6, -0.216066837E-6), (+0.178813934E-6, -0.298023224E-7), (+0.298023224E-6, +0.596046448E-7), (-0.119209290E-6, -0.208616257E-6), (+0.178813934E-6, -0.253319740E-6), (+0.596046448E-7, -0.119209290E-6), (+0.596046448E-7, -0.119209290E-6), (-0.119209290E-6, +0.596046448E-7), (+0.178813934E-6, +0.149011612E-7), (+0.596046448E-7, +0.238418579E-6), (+0.00000000, +0.238418579E-6), (+0.596046448E-7, +0.00000000), (+0.178813934E-6, +0.119209290E-6), (+0.00000000, +0.163912773E-6), (+0.119209290E-6, +0.149011612E-6), (+0.596046448E-7, +0.00000000), (+0.119209290E-6, +0.119209290E-6), (+0.596046448E-7, +0.104308128E-6), (+0.178813934E-6, +0.298023224E-6), (+0.119209290E-6, -0.119209290E-6), (+0.238418579E-6, +0.149011612E-6), (+0.596046448E-7, +0.119209290E-6), (+0.119209290E-6, +0.193715096E-6)
419reltol = sqrt(epsilon(1._TKC))
420reltol
421+0.345266977E-3
422isClose(data, atad(1:size(data)), reltol = reltol)
423T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
424call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
425
426lenData = getUnifRand(5, 100)
427lenData
428+83
429data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
430data
431(+1.6004371026627990, +0.46137427368512907), (+1.6011752974558484, +0.65330546483973206), (+1.0655347712931180, +0.72290160658152747), (+1.9180858703115571, +0.71939102341853645), (+1.3535164696201560, +0.36390306409879258), (+1.8918767639546923, +0.15691118206059618E-1), (+1.3585081473427394, +0.65687006241538193), (+1.1780691687229596, +0.14642893058489170), (+1.7240839930043239, +0.64815717908246173), (+1.9999177545597515, +0.82949815825287854), (+1.2937284823907631, +0.97712582047462837), (+1.2098299618320532, +0.79059601824124170), (+1.7556398878587505, +0.48116268486944280E-1), (+1.3722240745803631, +0.64800957947200244), (+1.1009864905359135, +0.51786397811111595), (+1.2856649591184759, +0.26083960531973416), (+1.6090495055112988, +0.92796159031198899), (+1.8679578430366590, +0.82155496511008397E-1), (+1.8779362075507007, +0.59202131566414573), (+1.5170021709133814, +0.40219664781429643), (+1.2506145118170857, +0.77936834509819031E-1), (+1.6169287535678083, +0.30852011985843508), (+1.3577268711995987, +0.50382132151219383), (+1.3137700879878982, +0.67008242795178130), (+1.7054525154162283, +0.70144010149423064), (+1.7156267205955813, +0.47630939744893197), (+1.4596382413816829, +0.36178162741729436), (+1.3561613584121357, +0.98012485995840515), (+1.9412690972473667, +0.86871213614399601), (+1.5041901709668388, +0.72798143462248899), (+1.9559906621662682, +0.48502171303345731), (+1.3555187368404442, +0.19664568364298707), (+1.3266397968763104, +0.20525002916096524), (+1.6345036427856587, +0.44056772774291952), (+1.0395515261057646, +0.96348592606046390), (+1.1975998209756717, +0.18512903854492135), (+1.5046984634746978, +0.80700747790202887), (+1.3570165576431044, +0.78164550625727280), (+1.6646383347090765, +0.25458496620926974), (+1.1028112282257536, +0.45243999892646369), (+1.5812084556283210, +0.78728136430338125), (+1.0861353156011206, +0.39572749991720424), (+1.8122579437223774, +0.30753493850358915), (+1.6257914611165447, +0.78133668660078270), (+1.2547978922957155, +0.44833804023919599), (+1.7751845721999344, +0.51810527892802449), (+1.9475942258549064, +0.51523684007865844), (+1.2042787374297932, +0.96936157670198231), (+1.8964981752981314, +0.38651059632249030), (+1.8037370630906744, +0.70508128555628968), (+1.2152018843596972, +0.91137002597294081), (+1.2653080089001680, +0.51749005577015605), (+1.9159832727465997, +0.26605732734261667), (+1.9475997949008024, +0.94729705525941410), (+1.6711903055530164, +0.22041198567687204), (+1.7681460371727762, +0.15058419289281522), (+1.1930623089104855, +0.14351093462264208), (+1.6623620706089994, +0.29435461715846734), (+1.8664623732009926, +0.99698548859906477E-1), (+1.5114378105874124, +0.42555427113173228), (+1.7351286907568695, +0.92273161398975800), (+1.6367463271905174, +0.34609226289728778), (+1.7331458159439501, +0.16017240183800507), (+1.8493145385700140, +0.43887440692294799), (+1.8394839649208705, +0.25717441695829124E-1), (+1.5624707050752265, +0.40870088367110657), (+1.1104024717918972, +0.85080400138868717), (+1.1954314839434010, +0.36416524410275519), (+1.4471460044642428, +0.20939576245771852), (+1.4478291857044145, +0.90452342660556950), (+1.0151690068359447, +0.84059353118157465), (+1.4143113454618106, +0.19586923169229509), (+1.8025042137063378, +0.39268174036182502), (+1.9372465767836733, +0.50312560512523619), (+1.3831988529851214, +0.54067132141315810), (+1.4690763113456833, +0.75392279747666457), (+1.1775817996519047, +0.26161305538186808), (+1.3418117154371729, +0.81983372781702191), (+1.0631582650349034, +0.13811340089052304), (+1.5239364942248055, +0.70950166407245663), (+1.3838692102023649, +0.40259102886150744), (+1.4971813106740171, +0.37578834386772286), (+1.5409302522633441, +0.94765297330347098)
432
433atad = getFFTI(getFFTF(data))
434atad
435(+1.6004371026627988, +0.46137427368512929), (+1.6011752974558486, +0.65330546483973251), (+1.0655347712931180, +0.72290160658152769), (+1.9180858703115571, +0.71939102341853656), (+1.3535164696201558, +0.36390306409879292), (+1.8918767639546921, +0.15691118206059784E-1), (+1.3585081473427389, +0.65687006241538226), (+1.1780691687229594, +0.14642893058489206), (+1.7240839930043239, +0.64815717908246206), (+1.9999177545597517, +0.82949815825287931), (+1.2937284823907629, +0.97712582047462870), (+1.2098299618320532, +0.79059601824124193), (+1.7556398878587505, +0.48116268486944752E-1), (+1.3722240745803627, +0.64800957947200244), (+1.1009864905359130, +0.51786397811111606), (+1.2856649591184754, +0.26083960531973444), (+1.6090495055112986, +0.92796159031198933), (+1.8679578430366595, +0.82155496511008841E-1), (+1.8779362075507000, +0.59202131566414606), (+1.5170021709133814, +0.40219664781429654), (+1.2506145118170853, +0.77936834509819114E-1), (+1.6169287535678081, +0.30852011985843519), (+1.3577268711995978, +0.50382132151219361), (+1.3137700879878977, +0.67008242795178119), (+1.7054525154162279, +0.70144010149423064), (+1.7156267205955811, +0.47630939744893197), (+1.4596382413816826, +0.36178162741729447), (+1.3561613584121355, +0.98012485995840537), (+1.9412690972473661, +0.86871213614399601), (+1.5041901709668388, +0.72798143462248888), (+1.9559906621662675, +0.48502171303345731), (+1.3555187368404438, +0.19664568364298729), (+1.3266397968763102, +0.20525002916096513), (+1.6345036427856590, +0.44056772774291941), (+1.0395515261057646, +0.96348592606046357), (+1.1975998209756715, +0.18512903854492130), (+1.5046984634746978, +0.80700747790202876), (+1.3570165576431044, +0.78164550625727292), (+1.6646383347090759, +0.25458496620926957), (+1.1028112282257534, +0.45243999892646347), (+1.5812084556283206, +0.78728136430338114), (+1.0861353156011209, +0.39572749991720424), (+1.8122579437223769, +0.30753493850358904), (+1.6257914611165445, +0.78133668660078270), (+1.2547978922957155, +0.44833804023919577), (+1.7751845721999344, +0.51810527892802460), (+1.9475942258549059, +0.51523684007865800), (+1.2042787374297927, +0.96936157670198220), (+1.8964981752981314, +0.38651059632249007), (+1.8037370630906744, +0.70508128555628935), (+1.2152018843596970, +0.91137002597294070), (+1.2653080089001680, +0.51749005577015594), (+1.9159832727465995, +0.26605732734261611), (+1.9475997949008024, +0.94729705525941355), (+1.6711903055530160, +0.22041198567687187), (+1.7681460371727760, +0.15058419289281480), (+1.1930623089104853, +0.14351093462264192), (+1.6623620706089994, +0.29435461715846722), (+1.8664623732009922, +0.99698548859906408E-1), (+1.5114378105874122, +0.42555427113173205), (+1.7351286907568695, +0.92273161398975734), (+1.6367463271905172, +0.34609226289728767), (+1.7331458159439497, +0.16017240183800449), (+1.8493145385700134, +0.43887440692294744), (+1.8394839649208705, +0.25717441695829263E-1), (+1.5624707050752262, +0.40870088367110657), (+1.1104024717918974, +0.85080400138868728), (+1.1954314839434006, +0.36416524410275497), (+1.4471460044642430, +0.20939576245771829), (+1.4478291857044143, +0.90452342660556950), (+1.0151690068359445, +0.84059353118157465), (+1.4143113454618104, +0.19586923169229456), (+1.8025042137063374, +0.39268174036182546), (+1.9372465767836731, +0.50312560512523663), (+1.3831988529851211, +0.54067132141315799), (+1.4690763113456828, +0.75392279747666446), (+1.1775817996519047, +0.26161305538186785), (+1.3418117154371727, +0.81983372781702157), (+1.0631582650349034, +0.13811340089052310), (+1.5239364942248050, +0.70950166407245585), (+1.3838692102023649, +0.40259102886150749), (+1.4971813106740168, +0.37578834386772259), (+1.5409302522633441, +0.94765297330347087), (+0.0000000000000000, -0.69388939039072284E-15), (+0.33306690738754696E-15, +0.90205620750793969E-16), (+0.22204460492503131E-15, -0.55511151231257827E-16), (+0.55511151231257827E-15, +0.22204460492503131E-15), (+0.44408920985006262E-15, -0.27755575615628914E-15), (-0.22204460492503131E-15, +0.16653345369377348E-15), (+0.0000000000000000, -0.24980018054066022E-15), (+0.11102230246251565E-15, -0.33306690738754696E-15), (+0.0000000000000000, -0.38857805861880479E-15), (+0.22204460492503131E-15, -0.55511151231257827E-16), (+0.44408920985006262E-15, -0.16653345369377348E-15), (+0.33306690738754696E-15, -0.27755575615628914E-16), (+0.33306690738754696E-15, -0.40245584642661925E-15), (-0.22204460492503131E-15, +0.34694469519536142E-15), (+0.11102230246251565E-15, +0.11102230246251565E-15), (-0.22204460492503131E-15, +0.27755575615628914E-15), (+0.0000000000000000, -0.13877787807814457E-16), (-0.22204460492503131E-15, +0.22204460492503131E-15), (+0.33306690738754696E-15, +0.22204460492503131E-15), (+0.22204460492503131E-15, +0.49960036108132044E-15), (+0.11102230246251565E-15, +0.19428902930940239E-15), (-0.55511151231257827E-15, +0.55511151231257827E-16), (+0.33306690738754696E-15, +0.0000000000000000), (+0.0000000000000000, +0.11102230246251565E-15), (+0.0000000000000000, +0.0000000000000000), (+0.0000000000000000, +0.83266726846886741E-16), (+0.0000000000000000, +0.33306690738754696E-15), (+0.11102230246251565E-15, +0.16653345369377348E-15), (-0.11102230246251565E-15, +0.11102230246251565E-15), (+0.0000000000000000, +0.44408920985006262E-15), (+0.55511151231257827E-15, +0.38857805861880479E-15), (-0.22204460492503131E-15, +0.49960036108132044E-15), (+0.22204460492503131E-15, +0.33306690738754696E-15), (+0.22204460492503131E-15, +0.52735593669694936E-15), (+0.55511151231257827E-15, +0.49960036108132044E-15), (+0.33306690738754696E-15, +0.49960036108132044E-15), (+0.22204460492503131E-15, +0.58286708792820718E-15), (+0.22204460492503131E-15, +0.16653345369377348E-15), (+0.77715611723760958E-15, +0.36082248300317588E-15), (-0.11102230246251565E-15, +0.26367796834847468E-15), (+0.33306690738754696E-15, +0.41633363423443370E-15), (+0.0000000000000000, +0.77715611723760958E-15), (+0.66613381477509392E-15, +0.69388939039072284E-15), (+0.0000000000000000, +0.74940054162198066E-15), (+0.66613381477509392E-15, +0.97144514654701197E-15)
436reltol = sqrt(epsilon(1._TKC))
437reltol
438+0.14901161193847656E-7
439isClose(data, atad(1:size(data)), reltol = reltol)
440T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
441call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
442
443lenData = getUnifRand(5, 100)
444lenData
445+5
446data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
447data
448(+1.85729952034655778347386861275316635, +0.538014259899702001294330609794274618), (+1.97600272637515239620434299436874877, +0.661781696990419154133646917119362922), (+1.46847460036527972617964523765846758, +0.927709066555126086952640846278637066), (+1.51261682856442142058574824490994407, +0.326974742934842249084934467848693831), (+1.52266465822543905659435226567682647, +0.387531684831132006340647134117699563)
449
450atad = getFFTI(getFFTF(data))
451atad
452(+1.85729952034655778347386861275316654, +0.538014259899702001294330609794274618), (+1.97600272637515239620434299436874877, +0.661781696990419154133646917119362826), (+1.46847460036527972617964523765846758, +0.927709066555126086952640846278637066), (+1.51261682856442142058574824490994426, +0.326974742934842249084934467848693782), (+1.52266465822543905659435226567682647, +0.387531684831132006340647134117699660), (+0.192592994438723585305597794258492732E-33, +0.481482486096808963263994485646231830E-34), (-0.962964972193617926527988971292463659E-34, -0.481482486096808963263994485646231830E-34), (+0.192592994438723585305597794258492732E-33, +0.481482486096808963263994485646231830E-34)
453reltol = sqrt(epsilon(1._TKC))
454reltol
455+0.138777878078144567552953958511352539E-16
456isClose(data, atad(1:size(data)), reltol = reltol)
457T, T, T, T, T
458call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
459
460lenData = getUnifRand(5, 100)
461lenData
462+87
463data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
464data
465+1.42854238, +1.19224715, +1.44121540, +1.53468609, +1.57430506, +1.30897141, +1.66690707, +1.00691366, +1.42171574, +1.60545230, +1.05740595, +1.05374730, +1.74530053, +1.18280911, +1.79981565, +1.02931046, +1.50458395, +1.55249977, +1.04662895, +1.10330832, +1.82282090, +1.00258327, +1.00525713, +1.76682353, +1.13714361, +1.18375039, +1.91552424, +1.19244814, +1.00778103, +1.33490658, +1.81989264, +1.12396073, +1.98888838, +1.00936723, +1.74979997, +1.68836057, +1.05003667, +1.25770533, +1.48061800, +1.49232554, +1.71148002, +1.35571051, +1.52070284, +1.51160645, +1.74412847, +1.45705676, +1.93515372, +1.63481092, +1.55669224, +1.92763436, +1.34877086, +1.43177700, +1.70274198, +1.37419701, +1.37875116, +1.66776037, +1.30045247, +1.65463471, +1.48145688, +1.41556358, +1.69507360, +1.32990897, +1.41267443, +1.99626243, +1.49441946, +1.69814610, +1.57480955, +1.07918477, +1.96294522, +1.67557430, +1.79148173, +1.97702050, +1.65538073, +1.08267415, +1.45957375, +1.50793266, +1.97944260, +1.82914543, +1.90026402, +1.70404720, +1.39740062, +1.20508289, +1.26850533, +1.33482730, +1.58455658, +1.67010128, +1.74272835
466
467atad = getFFTI(getFFTF(data))
468atad
469+1.42854238, +1.19224739, +1.44121552, +1.53468609, +1.57430494, +1.30897141, +1.66690683, +1.00691378, +1.42171574, +1.60545254, +1.05740631, +1.05374706, +1.74530065, +1.18280923, +1.79981565, +1.02931046, +1.50458419, +1.55249989, +1.04662895, +1.10330844, +1.82282114, +1.00258350, +1.00525713, +1.76682365, +1.13714349, +1.18375063, +1.91552424, +1.19244838, +1.00778115, +1.33490658, +1.81989253, +1.12396097, +1.98888850, +1.00936711, +1.74980009, +1.68836045, +1.05003691, +1.25770533, +1.48061812, +1.49232543, +1.71148002, +1.35571063, +1.52070308, +1.51160622, +1.74412847, +1.45705676, +1.93515372, +1.63481092, +1.55669200, +1.92763424, +1.34877086, +1.43177676, +1.70274198, +1.37419689, +1.37875128, +1.66776013, +1.30045223, +1.65463471, +1.48145652, +1.41556334, +1.69507337, +1.32990885, +1.41267419, +1.99626207, +1.49441934, +1.69814610, +1.57480979, +1.07918453, +1.96294534, +1.67557430, +1.79148197, +1.97702038, +1.65538073, +1.08267426, +1.45957386, +1.50793254, +1.97944272, +1.82914555, +1.90026450, +1.70404744, +1.39740074, +1.20508301, +1.26850557, +1.33482695, +1.58455706, +1.67010117, +1.74272871, +0.238418579E-6, +0.238418579E-6, -0.178813934E-6, +0.476837158E-6, -0.596046448E-7, +0.357627869E-6, +0.238418579E-6, +0.476837158E-6, +0.596046448E-7, -0.238418579E-6, +0.119209290E-6, +0.357627869E-6, +0.238418579E-6, +0.178813934E-6, +0.357627869E-6, +0.238418579E-6, +0.596046448E-6, +0.119209290E-6, +0.119209290E-6, +0.298023224E-6, +0.178813934E-6, +0.119209290E-6, +0.238418579E-6, +0.417232513E-6, +0.476837158E-6, +0.357627869E-6, +0.357627869E-6, +0.357627869E-6, +0.417232513E-6, +0.238418579E-6, +0.238418579E-6, +0.178813934E-6, +0.536441803E-6, +0.417232513E-6, +0.178813934E-6, +0.655651093E-6, +0.298023224E-6, +0.178813934E-6, +0.238418579E-6, +0.596046448E-7, +0.357627869E-6
470reltol = sqrt(epsilon(1._TKC))
471reltol
472+0.345266977E-3
473isClose(data, atad(1:size(data)), reltol = reltol)
474T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
475call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
476
477lenData = getUnifRand(5, 100)
478lenData
479+53
480data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
481data
482+1.2917071719158544, +1.9013847338021801, +1.6449545856640504, +1.4058761399703084, +1.3376800935056636, +1.7474520830188931, +1.9279869897036850, +1.4385012408166378, +1.1603156548313325, +1.9263850540839427, +1.7954012092322398, +1.8383249484904656, +1.5325512974029061, +1.0044770703020085, +1.1914886175405508, +1.1982182531320331, +1.5653265709986541, +1.4984515754191969, +1.9564891810664822, +1.2743427772002152, +1.3132502190967661, +1.7369571393473597, +1.0150345364209878, +1.4990958091960382, +1.5995171914978208, +1.3717021002350842, +1.6575071460677044, +1.7588346698288140, +1.9297756617789745, +1.3613522159836529, +1.5920079937420493, +1.6424509354008676, +1.4053972832739574, +1.1140092512039845, +1.3318291433642637, +1.4212285651173691, +1.6115836826156840, +1.7954462824765360, +1.0226757167846592, +1.4735832979847971, +1.5477071085244760, +1.7780465312077696, +1.5926486440773799, +1.4735596418085848, +1.7167528700842469, +1.3588610369121157, +1.9787782448139382, +1.0077699543245973, +1.3110066221459293, +1.9685255729972782, +1.4862655827392244, +1.6144293674812122, +1.0598250001511991
483
484atad = getFFTI(getFFTF(data))
485atad
486+1.2917071719158546, +1.9013847338021805, +1.6449545856640502, +1.4058761399703088, +1.3376800935056636, +1.7474520830188931, +1.9279869897036850, +1.4385012408166378, +1.1603156548313325, +1.9263850540839429, +1.7954012092322396, +1.8383249484904656, +1.5325512974029059, +1.0044770703020089, +1.1914886175405508, +1.1982182531320329, +1.5653265709986544, +1.4984515754191972, +1.9564891810664820, +1.2743427772002147, +1.3132502190967661, +1.7369571393473595, +1.0150345364209876, +1.4990958091960378, +1.5995171914978206, +1.3717021002350838, +1.6575071460677036, +1.7588346698288131, +1.9297756617789741, +1.3613522159836526, +1.5920079937420486, +1.6424509354008670, +1.4053972832739574, +1.1140092512039845, +1.3318291433642637, +1.4212285651173691, +1.6115836826156842, +1.7954462824765365, +1.0226757167846596, +1.4735832979847969, +1.5477071085244760, +1.7780465312077696, +1.5926486440773799, +1.4735596418085850, +1.7167528700842467, +1.3588610369121155, +1.9787782448139382, +1.0077699543245973, +1.3110066221459298, +1.9685255729972784, +1.4862655827392242, +1.6144293674812120, +1.0598250001511986, +0.22204460492503131E-15, +0.77715611723760958E-15, -0.11102230246251565E-15, +0.22204460492503131E-15, +0.44408920985006262E-15, +0.44408920985006262E-15, +0.99920072216264089E-15, +0.66613381477509392E-15, +0.22204460492503131E-15, +0.66613381477509392E-15, +0.88817841970012523E-15
487reltol = sqrt(epsilon(1._TKC))
488reltol
489+0.14901161193847656E-7
490isClose(data, atad(1:size(data)), reltol = reltol)
491T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
492call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
493
494lenData = getUnifRand(5, 100)
495lenData
496+95
497data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
498data
499+1.32345176754199290506814234774286113, +1.51003062113389332283162926131381557, +1.72368594447523515687197856023411255, +1.49721181929411646216321845540925612, +1.18348814055794657756196549713772708, +1.98410896488988763339807655637651937, +1.89127146183111318386822062815962847, +1.26924036780209634189135813063434619, +1.93019210407295039946765526985713377, +1.61150214515885061871881435216326639, +1.96787584633727854904894153299471268, +1.00533185508585785960411858012688441, +1.34656919916898342662810478426201236, +1.34780861169428400959553580017954762, +1.07019216166664132977032629228671691, +1.63222081021058938877266282705467497, +1.41936360631677536562815845745885924, +1.51387652767454269141075564803351650, +1.15331716703883687740966782770619763, +1.46471645188866825356135816841982832, +1.95194121924492209773179610072724342, +1.37878619653347838892971276356074134, +1.39280219259948926278901668913825445, +1.55515735496464136994645104752842928, +1.10508064241434685610279827015474517, +1.39812441203686509729758883783050014, +1.23996681204036311471496491789706586, +1.13095723288729057832191894785837666, +1.92566722941129486800530370349843062, +1.94321148980187073262948969078437240, +1.84083253473546824249272132054675875, +1.77207645333627740550007482546608411, +1.43400371591226287248149362924727839, +1.48027680061653013416758297680636554, +1.04178648128149439790138892442131762, +1.36564533369107931872890181349005774, +1.92752748553195321314912287493997118, +1.44454783411947243857464703682638816, +1.01333472031507079753962531902199827, +1.82116150192696647396790667607263148, +1.66133677620088874150065338994021396, +1.61909047203098869323488119746504541, +1.23973803208409260712136071008328546, +1.80391435935729046403997451837768468, +1.42008777359220304198690734737036744, +1.21374800030327084153922387506695171, +1.67891816727382791472203443386642152, +1.03632502779400974444616820585098672, +1.80598098833951346319028015625665990, +1.06042567242820432262533171271502419, +1.70797527977121862471166647913383890, +1.91211871529989042369691229146571182, +1.12487760369552945227133367991218042, +1.95669454373144725845381487127534145, +1.58411868343310167268290521418072812, +1.73130363865761931992641964626856959, +1.30782129921675846190742154657330808, +1.73434382534831272504350662365749523, +1.01428285171608507191925447644001013, +1.38353228105240617187604340595899953, +1.76470323699100421750414902449586426, +1.46835380501936178432370740737234673, +1.51784919936031201217708184524381541, +1.84446230190415887584018955707562746, +1.40718240950708212653815975744967704, +1.98171267092633833173787404581438055, +1.95500033752201950736877277643816618, +1.41337243154508775930942938906352578, +1.13057316371779645981605806450459669, +1.49664830031079150273336187671676144, +1.41334176227497596149947972878252710, +1.75299659371605211436636194830351363, +1.92055801030619162386442381344140283, +1.61139877503847393995450685568922415, +1.11764935203151287759037561499719256, +1.07885973268788885519167292403718359, +1.77630760278810774898003558583615860, +1.52376411574198911278063166201868452, +1.37571253170679025827268854908391265, +1.71920749821442119336268329794025724, +1.11005380641698012931852694029346328, +1.36779253521865098469590178317939142, +1.42378197487535604579975192773711591, +1.35516763975234079837159691718802306, +1.86491031712573511201515562191423001, +1.94488025193322075766746374156184647, +1.95227086294855103710709747456246764, +1.78372822142303551296156368559183499, +1.48891221974172539875238992185893291, +1.67876650287527775116271841114634214, +1.20082375697043562254848113199874824, +1.33446953453276908294388174313459801, +1.72093037145769607011692683600874064, +1.68819529898513686227936843829759996, +1.32880471388556837740571514922027646
500
501atad = getFFTI(getFFTF(data))
502atad
503+1.32345176754199290506814234774286093, +1.51003062113389332283162926131381577, +1.72368594447523515687197856023411274, +1.49721181929411646216321845540925612, +1.18348814055794657756196549713772669, +1.98410896488988763339807655637651976, +1.89127146183111318386822062815962790, +1.26924036780209634189135813063434600, +1.93019210407295039946765526985713396, +1.61150214515885061871881435216326658, +1.96787584633727854904894153299471287, +1.00533185508585785960411858012688402, +1.34656919916898342662810478426201236, +1.34780861169428400959553580017954742, +1.07019216166664132977032629228671672, +1.63222081021058938877266282705467478, +1.41936360631677536562815845745885905, +1.51387652767454269141075564803351650, +1.15331716703883687740966782770619763, +1.46471645188866825356135816841982851, +1.95194121924492209773179610072724265, +1.37878619653347838892971276356074134, +1.39280219259948926278901668913825426, +1.55515735496464136994645104752842966, +1.10508064241434685610279827015474498, +1.39812441203686509729758883783049995, +1.23996681204036311471496491789706606, +1.13095723288729057832191894785837686, +1.92566722941129486800530370349843023, +1.94321148980187073262948969078437298, +1.84083253473546824249272132054675894, +1.77207645333627740550007482546608450, +1.43400371591226287248149362924727800, +1.48027680061653013416758297680636535, +1.04178648128149439790138892442131762, +1.36564533369107931872890181349005774, +1.92752748553195321314912287493997080, +1.44454783411947243857464703682638797, +1.01333472031507079753962531902199846, +1.82116150192696647396790667607263110, +1.66133677620088874150065338994021377, +1.61909047203098869323488119746504541, +1.23973803208409260712136071008328546, +1.80391435935729046403997451837768506, +1.42008777359220304198690734737036744, +1.21374800030327084153922387506695171, +1.67891816727382791472203443386642190, +1.03632502779400974444616820585098672, +1.80598098833951346319028015625665971, +1.06042567242820432262533171271502342, +1.70797527977121862471166647913383870, +1.91211871529989042369691229146571202, +1.12487760369552945227133367991218042, +1.95669454373144725845381487127534107, +1.58411868343310167268290521418072774, +1.73130363865761931992641964626856959, +1.30782129921675846190742154657330769, +1.73434382534831272504350662365749523, +1.01428285171608507191925447644001013, +1.38353228105240617187604340595899953, +1.76470323699100421750414902449586426, +1.46835380501936178432370740737234673, +1.51784919936031201217708184524381541, +1.84446230190415887584018955707562746, +1.40718240950708212653815975744967665, +1.98171267092633833173787404581438055, +1.95500033752201950736877277643816579, +1.41337243154508775930942938906352578, +1.13057316371779645981605806450459630, +1.49664830031079150273336187671676106, +1.41334176227497596149947972878252691, +1.75299659371605211436636194830351382, +1.92055801030619162386442381344140263, +1.61139877503847393995450685568922415, +1.11764935203151287759037561499719218, +1.07885973268788885519167292403718359, +1.77630760278810774898003558583615841, +1.52376411574198911278063166201868471, +1.37571253170679025827268854908391188, +1.71920749821442119336268329794025782, +1.11005380641698012931852694029346347, +1.36779253521865098469590178317939104, +1.42378197487535604579975192773711552, +1.35516763975234079837159691718802306, +1.86491031712573511201515562191423001, +1.94488025193322075766746374156184627, +1.95227086294855103710709747456246706, +1.78372822142303551296156368559183518, +1.48891221974172539875238992185893233, +1.67876650287527775116271841114634234, +1.20082375697043562254848113199874747, +1.33446953453276908294388174313459821, +1.72093037145769607011692683600874026, +1.68819529898513686227936843829760073, +1.32880471388556837740571514922027627, -0.192592994438723585305597794258492732E-33, -0.192592994438723585305597794258492732E-33, -0.192592994438723585305597794258492732E-33, -0.481482486096808963263994485646231830E-33, -0.962964972193617926527988971292463659E-34, -0.288889491658085377958396691387739098E-33, +0.385185988877447170611195588516985464E-33, -0.962964972193617926527988971292463659E-34, +0.962964972193617926527988971292463659E-34, -0.866668474974256133875190074163217293E-33, -0.385185988877447170611195588516985464E-33, -0.674075480535532548569592279904724561E-33, -0.481482486096808963263994485646231830E-33, -0.105926146941297971918078786842171003E-32, +0.288889491658085377958396691387739098E-33, -0.770371977754894341222391177033970927E-33, +0.00000000000000000000000000000000000, +0.192592994438723585305597794258492732E-33, -0.192592994438723585305597794258492732E-33, +0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000, +0.385185988877447170611195588516985464E-33, +0.288889491658085377958396691387739098E-33, +0.385185988877447170611195588516985464E-33, +0.00000000000000000000000000000000000, -0.192592994438723585305597794258492732E-33, +0.962964972193617926527988971292463659E-34, -0.770371977754894341222391177033970927E-33, +0.00000000000000000000000000000000000, -0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34, -0.288889491658085377958396691387739098E-33
504reltol = sqrt(epsilon(1._TKC))
505reltol
506+0.138777878078144567552953958511352539E-16
507isClose(data, atad(1:size(data)), reltol = reltol)
508T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
509call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
510
511
Test:
test_pm_fftnr


Final Remarks


If you believe this algorithm or its documentation can be improved, we appreciate your contribution and help to edit this page's documentation and source file on GitHub.
For details on the naming abbreviations, see this page.
For details on the naming conventions, see this page.
This software is distributed under the MIT license with additional terms outlined below.

  1. If you use any parts or concepts from this library to any extent, please acknowledge the usage by citing the relevant publications of the ParaMonte library.
  2. If you regenerate any parts/ideas from this library in a programming environment other than those currently supported by this ParaMonte library (i.e., other than C, C++, Fortran, MATLAB, Python, R), please also ask the end users to cite this original ParaMonte library.

This software is available to the public under a highly permissive license.
Help us justify its continued development and maintenance by acknowledging its benefit to society, distributing it, and contributing to it.

Author:
Fatemeh Bagheri, Tuesday 11:34 PM, August 10, 2021, Dallas, TX

Definition at line 428 of file pm_fftnr.F90.


The documentation for this interface was generated from the following file: